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PREFAZIONE 


Questo libro fa seguito al nostro precedente volume 
"COMMODORE 16 per te". Noi presupponiamo nel lettore 
una conoscenza elementare del BASIC 3-5, di cui fac¬ 
ciamo largo uso nei programmi esempio. 

In questo volume approfondiamo la conoscenza delle 
periferiche collegabili al COMMODORE 16, trattando 
ampiamente il software per la gestione delle mede¬ 
sime . 

Altri argomenti centrali del libro sono l'architet- 
tura del sistema calcolatore e la sua programmazione 
in linguaggio macchina e in ASSEMBLER. Viene trattata 
con mano leggera, ma con chiarezza, la struttura hard¬ 
ware del calcolatore, mettendo in grado i poco es¬ 
perti di comprendere meglio le caratteristiche dello 
strumento. Lo studio del linguaggio macchina consente 
di sfruttare al meglio le possibilità' del calco¬ 
latore, ma anche di comprendere come, per molte opera¬ 
zioni, sia piu* comodo servirsi del linguaggio BA¬ 
SIC. 

Diamo ampio spazio all'argomento della grafica, al 
trattamento dei file su disco, e all'utilizzo della 
stampante. 

Il libro contiene molti programmi commentati, sia in 
BASIC che in ASSEMBLER, che risultano molto utili, do¬ 
po attenta lettura, per imparare a programmare. 
Questi, inoltre, possono essere usati dal lettore, sia 
nella versione presentata, che apportando alcune modi¬ 
fiche, o adoperando le routine piu' significative, per 
il proprio lavoro. 

Nella cassetta allegata sono riportati tutti i pro¬ 
grammi abbastanza lunghi, quelli cioè’ per i quali 
vale la pena di risparmiare il lavoro di trascri¬ 
zione . 


Gli autori 
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CAPITOLO 1 


COMUNICAZIONE 
CON LE PERIFERICHE 


1.1 COME IL CALCOLATORE COMUNICA CON LE PERIFERICHE 

Le periferiche sono dei dispositivi per l'ingresso e 
l'uscita dei dati, tramite i quali comunichiamo con il 
calcolatore. Ogni periferica utilizza un particolare 
tipo di supporto fisico per la comunicazione. 

Alcuni di questi dispositivi di I/O (Input/Output) so¬ 
no tali da consentire una comunicazione diretta con 
l'utente; nel caso del COMMODORE 16 abbiamo: 

•la tastiera, che usa il supporto tasti, 

.il televisore (o il monitor), che usa il supporto 
schermo video, 

.la stampante, che usa il supporto carta, 

•i joystick, che usano come supporto leve o bottoni o 
rotor i . 

Altri non consentono una comunicazione diretta, in 
quanto utilizzano supporti fisici di tipo magnetico; 
per il COMMODORE 16 abbiamo: 

.il registratore a cassetta, 

.l'unita' a floppy di3k. 

I dispositivi di 1/0 sono apparecchiature distinte dal 
calcolatore, anche se esso, come il COMMODORE 16, si 
trova inscatolato in una di esse, la tastiera. Per 
consentire la comunicazione tra il calcolatore e ogni 
dispositivo di I/O e' necessaria un'interfaccia di 
collegamento. Le interfacce di I/O sono, in generale, 
dei dispositivi programmabili, cioè' contengono al lo¬ 
ro interno dei registri, ai quali si può' accedere 
mediante indirizzi, come se fossero byte di memoria, 
programmando il funzionamento dell'interfaccia stes¬ 
sa. Dal punto di vista fisico le interfacce di I/O 
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possono già' essere contenute all'interno del calco¬ 
latore o delle periferiche. Per il COMMODORE 16 le 
interfacce per le periferiche standard COMMODORE sono 
già' contenute nel calcolatore. 


Ogni periferica di I/O e' individuata mediante un 
numero intero, quello che, nella descrizione del BASIC 
nel primo volume, abbiamo chiamato "unita'". Questo 
numero nella letteratura viene spesso chiamato "dn", 
da Device Number (numero apparecchiatura). Per alcune 
periferiche il numero "dn" può' essere modificato 
agendo su alcuni switch, interni o esterni; per altre 
esso e’ fisso. Per il COMMODORE 16 abbiamo: 


Periferica 

"dn" 

Tipo operazione 

Tastiera 

0 

Input 

Registratore 

1 

Input/Output 

(RS232 per 
altri modell i ) 

2 

(non usata) 

Video 

3 

Input/Output 

Stampante 

4/5 

Output 

Plotter 

6 

Output 

Disco 

8/1 1 

Input/Output 

Per i Joystick non esiste un "dn", la comunicazione 
risulta sempre aperta. 


Il numero "dn" deve essere usato in alcune istruzioni 
del BASIC. 

Per le periferiche collegate tramite l'interfaccia 
seriale, stampante e disco, deve essere definito un 
numero che identifica il modo della comunicazione. 
Questo numero e' stato chiamato "sa" nella descri¬ 
zione del BASIC; esso può' variare da 0 a 15. Il nume¬ 
ro "sa" ha diverso significato a seconda delle perife¬ 
riche; nei Capitoli 2 e 3 trattiamo diffusamente stam¬ 
pante e disco. 

L'insieme dei dati che vengono scambiati con una 
periferica si chiama "stream" o "flusso". Esso si 
trasforma in Output in una registrazione sul supporto 
fisico che viene chiamata "file". In Input il file, 
già' registrato sul supporto fisico, alimenta il flus¬ 
so di dati verso il calcolatore. Ogni file e' contrad¬ 
distinto da un numero, chiamato "lfn" , da Logicai Fi- 
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le Number (numero logico file). Il "lfn" può' variare 
da 0 a 255; per alcune periferiche una parte dell'in¬ 
tervallo di variabilità' del "lfn", o alcuni valori, 
possono avere un significato particolare. 

Molte istruzioni BASIC usano il "lfn", che viene defi¬ 
nito con l'istruzione OPEN. 

Un file e' composto da record, cioè' da singoli grup¬ 
pi di registrazioni che ha senso considerare insieme. 
Si chiamano campi le singole registrazioni che compon¬ 
gono un record. Dobbiamo fare una distinzione tra: 
.record logici, 

•record fisici. 

Le dimensioni dei record, logici e fisici, e dei cam¬ 
pi si misurano in numero di caratteri o in byte. 

Il RECORD LOGICO e' composto da tutti i campi che 
interessano l'argomento a cui il record si riferisce; 
in conseguenza può' essere lungo quanto e' necessario 
(almeno in linea teorica). 

Il RECORD FISICO dipende dal tipo di supporto di 
registrazione usato; per esempio su un tipo di carta e 
con una stampante di un certo tipo non si possono 
scrivere piu* di 80 caratteri per riga. In questo ca¬ 
so il record fisico, riga di stampa, e' di 80 carat¬ 
teri. Possiamo usare quella stampante con quella car¬ 
ta per scrivere .1 dati di un record logico di 300 
caratteri; il record logico userà' piu' record fisi¬ 
ci. Analogamente una linea del video contiene M0 
caratteri, ma noi possiamo scrivere sul video un 
record logico lungo che sta su piu' righe. 

In generale esiste un limite nelle dimensioni dei 
record fisici, ed esso dipende anche dal supporto di 
registrazione. 

Altre caratteristiche che vengono in generale preci¬ 
sate per i file sono le seguenti: 

.record logici di lunghezza fissa o variabile, 

.numero dei campi, componenti il record, fisso o 
variabile, 

.lunghezza dei singoli campi fissa o variabile, 

.tipo del file: sequenziale, diretto, relativo, con 
indice sequenziale, 

.metodo di accesso ai record del file. 

Un file e' di tipo SEQUENZIALE quando viene creato 
scrivendo i record uno dopo l'altro, partendo dal pri¬ 
mo. Esso e' di tipo DIRETTO quando si può' scrivere un 
record logico conoscendo la sua posizione fisica sul 
supporto di registrazione, indipendentemente dalla 
scrittura del record precedente. Un file RELATIVO vie- 


3 



ne scritto record per record (anche non in sequenza) 
fornendo il numero d'ordine del record nel file (pri¬ 
mo, terzo,...). Un file CON INDICE SEQUENZIALE viene 
scritto un record dopo l'altro, creando contempo¬ 
raneamente un indice sequenziale (file separato dal 
file principale) che consente l'accesso diretto 
mediante una chiave al record del file principale; la 
chiave e' il valore di un determinato campo. 

Il metodo di accesso ai record di un file dipende dal 
tipo di file, dal supporto di registrazione usato e 
dal software disponibile. 

La gestione software delle periferiche può' avvenire 
solo per mezzo delle apposite routine del SISTEMA 
OPERATIVO del calcolatore, oppure può' dipendere anche 
da routine memorizzate nelle ROM delle periferiche. 
Nel nostro caso la stampante e l'unita' disco conten¬ 
gono del software registrato in ROM. 

Riepiloghiamo le istruzioni del BASIC che riguardano 
la gestione delle periferiche come file: 


OPEN lfn[,dn[,sa[,"nomef,tipo,modo"]]] 
per stabilire la comunicazione 

CLOSE lfn 

per chiudere la comunicazione 
CMD lfn[,lista] 

per trasferire a una periferica diversa l'uscita 

video 

GET# lfn,lista variabili 

per leggere dati carattere per carattere 

INPUT# lfn,lista variabili 

per leggere dati variabile per variabile 

PRINT# lfn,lista 

per scrivere dati 


Il sistema raccoglie in una tabella le informazioni 
relative ai file aperti; tale tabella può' contenere 
10 elementi . 



TABELLA GESTIONE FILE 

Num.elem. 

lfn 

dn 

sa 

. 1 ) 

1289 

1299 


. 2) 

1290 

1 300 

1310 

. 3) 

1291 

1 301 

1311 

. 4) 

1 292 

1 302 

1 31 2 

. 5) 

1293 

1 303 

1313 

• 6) 

1294 

1 304 

131 4 

. 7) 

1295 

1 305 

1315 

. 8) 

1296 

1 306 

1316 

. 9) 

1297 

1307 

1317 

.10) 

1298 

1 308 

1318 


La tabella dei file aperti viene utilizzata in modo 
che le informazioni sui file aperti occupino le prime 
posizioni. Quando un file viene chiuso, se e' l'ul¬ 
timo nella tabella, essa resta come e' e viene aggior¬ 
nato solo il puntatore (byte 151) all'ultima posi¬ 
zione occupata, se non e' l'ultimo, la sua posizione 
viene occupata dall'ultimo file e viene aggiornato il 
puntatore. 

Il programma ESI. 4 che segue mostra i contenuti di 
questa tabella in diverse situazioni, e i contenuti 
dei byte che danno informazioni circa il file corren¬ 
te e il numero dei file aperti. Questi ultimi sono: 

byte 171: lunghezza nome file corrente 
byte 172: lfn file corrente 
byte 173: sa file corrente 
byte 174: dn file corrente 
byte 175/176: puntatore al nome del file 
byte 151: numero file aperti e contemporaneamente 
puntatore all'ultima posizione occupata nella tabel¬ 
la. 
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1 REM ESI.4 

2 0PEN4,4 ; CMD4 

3 GOSUE100 
10 OPEH0,0 
15 0PEN1 i 3 

20 OPEN2.0 

21 PRINT#4 ; CL0SE4 

23 0PEN5j1/1/"PIPPO" 

24 OPEN4,4 ! CMD4 

25 GOSUB100 

30 PRIHT#4 CL0SE4 

40 CLOSE0 = CLOSE1 :CL0SE2 = CL0SE5 

43 0PEN4,4CMD4 

45 GOSUB100 

47 PRINT#4 : CL0SE4 

50 STOP 

100 REM STATO FILE 

101 PRINT"NUMERO FILE RPERTI ; ";PEEK<151> 

103 PRINT"FILE CORRENTE" 

104 PRINT"LFN","DN","SO" 

105 PRINTPEEK <172 >, PEEK < 174 > , PEEK < 173 > 

110 PRINT"PUNTATORE NOME ; ";256*PEEK<176>+PEEK<175> 

113 PRINT"LUNGHEZZA NOME : ";PEEK<171> 

115 PRINT:PRINT"TABELLA FILE" 

117 PRINT"LFN" , "DN"/"SA" 

120 F0RK=1289T01298 

125 PRINTPEEK < K>,PEEK < K>10 >,PEEK <K+20 > 

130 NEXTK 
135 RETURN 


COMMENTO A ESI. 1 ! 

.2/3: viene aperta la stampante e stampata la situa¬ 
zione . 

.10/25: vengono aperti i file con lfn 0, 1 e 2, poi 
viene chiusa la stampante e aperto un file su casset¬ 
ta con lfn=5. Viene riaperta la stampante e stampata 
la situazione. 

•30/45: vengono chiusi tutti i file aperti, poi 
riaperta la stampante e stampata la situazione. 

.47/50: viene chiusa la stampante e il programma 
termina. 

.100/135: sottoprogramma che stampa il valore dei 
puntatori e la tabella. 

Osservando i risultati puoi verificare come viene 
gestita la tabella. 
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NUMERO FILE APERTI : 
FILE CORRENTE 
LFN DN 

4 4 

PUNTATORE NOME = 25© 

LUNGHEZZA NOME © 


SA 


255 


TABELLA FILE 
LFN 
4 
© 

© 

© 

© 

© 

© 

© 

© 

0 


DN 

4 

© 

© 

0 

0 

0 

0 

0 

0 

0 


SA 

255 

0 

0 

0 

0 

0 

0 

0 

0 

0 


NUMERO FILE APERTI : 
FILE CORRENTE 
LFN DN 

4 4 

PUNTATORE NOME : 250 

LUNGHEZZA NOME = 0 


5 

SA 

255 


TABELLA FILE 


LFN 

2 

0 

1 

5 

4 

0 

0 

0 

0 

0 


DN 

0 

0 

3 
1 

4 
0 
0 
0 
0 
0 


SA 


96 

96 
255 

97 
255 
0 

0 

0 

0 

0 
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NUMERO FILE APERTI ; 1 

FILE CORRENTE 
LFN DN SA 

4 4 .255 

PUNTATORE NOME : 250 

LUNGHEZZA NOME■ 0 


TABELLA 

LFN 

4 

5 
1 
5 
4 
0 
0 
0 
0 
0 


FILE 

DN 

4 

1 

3 
1 

4 
0 
0 
0 
0 
0 


SA 

255 

97 

255 

97 

255 

0 

0 

0 

0 

0 


1.2 LA TASTIERA VISTA COME FILE 

Il BASIC fornisce le istruzioni per la tastiera, che 
e' considerata la periferica di Input principale. Il 
byte 152 contiene il numero di default della perife¬ 
rica di Input; esso all'accensione e' zero, "dn" del¬ 
la tastiera. I comandi INPUT, GET e GETKEY attendono 
Input dalla tastiera. Essa e' una periferica un po' 
particolare, infatti pur essendo di Input, le routine 
del SISTEMA OPERATIVO relative al suo uso forniscono 
per alcune istruzioni (INPUT) anche un Output sul 
video, che, ovviamente, potrebbe essere evitato, usan¬ 
do routine diverse. 

Vediamo ora, con alcuni esempi, come si può' usare la 
tastiera come una periferica gestita come file. 

Nel programma ES1.1 mostriamo un primo esempio. 


1 REM ES1.1 
10 OPEN 1,0 

15 PRINT"SCRIVI NUMERO ; " ; INPUT# 1, N 

20 PRINT ">»l- HAI SCRITTO ; " i N 

25 CLOSE1 
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COMMENTO A ES1.1 


.10: 

apriamo la dn-0 come file con 

lfn- 

1 , 

trascu- 

rando 

gli altri parametri della OPEN, 

che 

non 

risul- 

tano 

necessari. 




.15: 

con la PRINT scriviamo il messaggio 

di 

richie- 


sta di un numero e terminiamo con per non andare a 

capo. Con la INPUT#1 , leggiamo dal file logico 1 un 
numero, cioè' dalla tastiera. Quando esegui il 
programma non vedi il "?" di richiesta dati. Termini 
il numero come al solito con RETURN, vedi scomparire 
il cursore, ma esso non va a nuova linea. 

.20: stampiamo un messaggio e il numero N. Il messag¬ 
gio tra virgolette inizia con due caratteri "cursore a 
destra" perche' altrimenti esso verrebbe scritto sopra 
l'ultima cifra del numero; ne abbiamo messi due per 
creare anche uno spazio. Possiamo concludere che il 
RETURN di chiusura dato lascia in questo caso il cur¬ 
sore sull'ultimo carattere scritto. 

Se rispondi con un numero di parecchie cifre, il 
messaggio successivo all'INPUT andra' in parte a nuo¬ 
va linea. 

Nel programma ESI.2 riportiamo un altro esempio. 

1 REM ESI.2 
10 OPEN 170,0 

15 PRINT"SCRIVI NUMERO : ; INPUT#170,N 

20 PRINT = PRINT "HAI SCRITTO- ";N 
25 CLGSE170 


La differenza di ESI.2 rispetto al programma prece¬ 
dente e' che abbiamo usato lfn-170 e che alla linea 
20, andiamo a capo con la prima PRINT e, poi, scri¬ 
viamo il messaggio; abbiamo potuto eliminare i carat¬ 
teri di "cursore a destra". 

Nel programma ESI.3 riportiamo un terzo esempio. 


1 REM ESI.3 
10 OPEN 0,0 

15 PRINT"SCRIVI NUMERO : “;•INPUT#©,N 
20 PRINT "HAI SCRITTO ; ",N 
25 CLOSE0 


9 



In questo caso abbiamo usato lfn-O, questo produce il 
solito effetto di INPUT dalla tastiera, cioè' compare 
il punto interrogativo di richiesta dati e il RETURN 
di chiusura dato manda a nuova linea. L'istruzione 
INPUT normale corrisponde ad aver usato una OPEN 0,0 
seguita da una INPUT#0. 


1.3 IL VIDEO VISTO COME FILE 


L'istruzione PRINT del BASIC manda i dati sul video, 
che e' considerato la periferica di Output princi¬ 
pale, a partire dalla posizione del cursore; la posi¬ 
zione di stampa può' essere modificata usando 1 carat¬ 
teri di controllo del cursore e le funzioni TAB e SPC. 
Il byte 153 contiene il numero di default della 
periferica di Output; esso all’accensione e' 3, "dn" 
del video. 

Vediamo ora, con alcuni esempi, come si può' usare il 
video, gestendolo come un file, sia in Input che in 
Output. 

Nel programma ESI.5 mostriamo un primo esempio. 


1 REM ESI.5 
IO OPEN3,3 

15 PRINT#3/"3" ;"RBCDEFGHIJKLMNOPQRSTUVWXVZ" 

16 PRINT#3j1234 

17 fi$="" 

20 PR I NT#3 / " Si" ; 

23 F0RK=1T026 ; GET#3,B* 

25 

30 NEXTK ; PRINT#3> "J®8" i 

31 N*="" GET#3,N1* 

33 GET#3,N1#‘IFN1*=CHR$< 32 > THEN35 

34 N*=N*+N1 *•0QT033 

37 PR I NT#3 VBL < N$ > 

40 CL0SE3 : STOP 


COMMENTO A ESI . 5 

.10: apre il video, dn-3, con lfn-3. 

.15: stampa sulla prima linea del video pulito, dopo 
aver usato il carattere di controllo SH1FT-CLEAR/H0ME, 
le 26 lettere dell’alfabeto, con PRINT#3. 
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.16: stampa con PRINT#3 sulla seconda linea del video 
il numero 12 3-4- Nota che dopo la stampa il cursore va 
a capo, ma sul video non viene registrato il carat¬ 
tere CHR$(13). Il video e' stato usato come file di 
Output. 

.17: pone A$ a stringa nulla. 

.20: stampa con PRINT#3 il carattere di controllo 
CLR/HOME per portare il cursore nella prima posizione 
del video. 

.23/30: legge con GET#3. quindi usa il video come fi¬ 
le di Input, quello che sta sulla prima linea, carat¬ 
tere per carattere e somma i caratteri letti in A$; 
questo per 26 volte. Poi con PRINT#3 stampa i carat¬ 
teri di controllo CLR/HOME e FRECCIA GIU', per 
posizionarsi all’inizio della seconda riga del video. 

.31: pone N$ a stringa nulla e legge il primo carat¬ 
tere, che sappiamo essere uno spazio, a vuoto. Se 
vogliamo leggere un numero con il segno meno, questo 
primo carattere va posto nella stringa N$. 

• 33: legge in N1$ un carattere; se esso e' uno spa¬ 
zio, cioè' il numero e' terminato, prosegue dalla 
linea 35. 

•34: somma il carattere letto nella stringa N$ e tor¬ 
na alla linea 33- 

•35: si posiziona sulla 13 -esima riga del video e 
stampa A$ con PRINT#3- 

.37: stampa con PRINT#3, sulla linea seguente il 
valore del numero letto. 

.40: chiude il file con lfn-3 e si ferma. 

Come vedi in questo esempio il video e' stato aperto 
come file ed usato alternativamente in Input e in 
Output. Non si può', pero', usare l'istruzione 
INPUT#3, infatti da' l'errore "string too long", dato 
che non trova il carattere CHR$(13). 


1.41 FILE SU CASSETTA 

Nel primo volume abbiamo già' trattato diffusamente 
l'argomento dei file su cassetta e riportato un 
programma per la gestione di un archivio di dati. 

Il buffer usato dal sistema per i dati da scrivere o 
leggere si trova dal byte 819 al byte 1010 
(0333H/03F2H) ; sono 192 byte. La gestione del buffer 
risulta trasparente per l'utente, che tratta i dati 
solo a livello logico. Se desideri vedere come i dati 
sono registrati nel buffer, per esempio dopo la OPEN 



di un file, o in qualunque altro momento, puoi leg¬ 
gere il contenuto del buffer usando la funzione PEEK. 
Inoltre se vuoi vedere i dati presenti nel buffer 
carattere per carattere li puoi leggere con l'istru¬ 
zione GET#. 

Anche i file di programma transitano dal buffer sia in 
fase di lettura (LOAD), che in fase di scrittura 
(SAVE). Risulta meno agevole analizzare il contenuto 
del buffer per queste operazioni, dato che esse sono 
svolte con continuità' e, alla fine, nel buffer si 
trova solo l'ultima parte dei dati transitati. 


1.5 I JOYSTICK 

Il BASIC ci mette a disposizione un'istruzione per 
"leggere" lo stato dei Joystick: JOY(n), con n che 
può' essere 1 o 2, e corrisponde alle prese JOY 1 e 
JOY 2. 

Questa istruzione può' essere usata per trasferire lo 
stato attuale del Joystick in una variabile, scriven¬ 
do, per esempio, A-JOY(I). Oppure direttamente, per 
analizzare in tempo reale lo stato del Joystick, per 
esempio cosi': IF J0Y(1)-1 THEN.... 

I valori forniti dall'istruzione JOY(n) sono 9+9; 
essi corrispondono agli 8 movimenti possibili + lo 
stato di riposo, ottenuti con il solo movimento della 
leva, e agli 8 movimenti possibili + lo stato di ripo¬ 
so con l'aggiunta del fuoco, ottenuti premendo il bot¬ 
tone rosso mentre si muove la leva. Lo schema che 
segue mostra le due situazioni possibili. 



1 



129 


8 


2 

1 36 


1 30 


0 

3 

135 

1 28 


6 

5 

4 

1 34 

133 

1 32 

SOLO 

MOVIMENTO 

MOVIMENTO + 

FUOCO 


Per utilizzare i joystick come periferiche di Input e’ 
necessario leggere il loro stato e produrre in conse¬ 
guenza sul video delle azioni, che in generale sono di 
movimento, ma potrebbero essere di qualunque tipo, 
infatti dipendono dal programma. 



Abbiamo preparato il programma J0YSTICK1 per dimostra¬ 
re la gestione dei joystick in BASIC ; esso gestisce il 
joystick 1. In esso abbiamo creato dei cicli di atte¬ 
sa per consentire di analizzare gli effetti prodotti. 
Il programma lavora con il video in modo testo. 
Inizialmente viene disegnato un quadratino nero in 
posizione 14,14. Le posizioni corrispondenti (primo 
numero per riga, secondo per colonna) ai possibili 
movimenti sono: 


13,13 

13,14 

13,15 

14,13 

14,14 

14,15 

15,13 

15,14 

15,15 


1 REM JOYSTICK1 
4 REM S TR I NGH E PER MOVIMENTO 

i e rd$=" 

13 R3*=LEFT$<RD$, 13> : R4$=LEFT$<RD$. 14> 

16 R5$=LEFT*<RD$.15> 

19 C3$=LEFT$<CG*.13> =C4$=LEFT$<CG*.14> 

23 M$="1234567890" 

25 C5$=LEFT$<CG*.15> 

28 REM SPRZIO INVERSO E DIRETTO 
31 S*="S H"=N$=" " 

34 REM NUMERAZIONE RIGHE E COLONNE 
37 PRINT'TT'M*; M*; M*; M* 

40 PRINT"S8" F0RK=2T010 PRINT"II" /. K : NEXTK 
43 FORK= ITO IO : PRINT" II" ; K : NEXTK 
46 F0RK=1T04 = PRINT "II" K = NEXTK = PRINT" II" 5; 
49 REM QUADRATINO A RIGA 14. COLONNA 14 
52 PR I NT " 3" ; C4$ R4$ > "■";s*; 

55 REM LETTURA JOYSTICK 1 
58 A=JOY<15 IFA=0THEN58 
61 FORK.= 1TO3O0 : NEXTK 

64 FRINT"a";C4$;R4*;N$;=REM CANCELLA 

67 IFA=128THEN148 

70 IFA>12STHEN112 

73 REM SOLO MOVIMENTO 

76 QHAG0T082 .• 85.88.. 91,94.. 97.100.103 

79 STOP 

82 PR I NT " a" C3$ ; R4$S» ; : GOTO 109 
85 PR I NT " 3" C3$ ; R5$ ; " ■ " ; S$= GOTO 109 
88 PR I NT "3" ; C4* ; R5$ ; "■ " S$'■ GOTO 109 
91 PRINT "a" ; C5$; R5$; S$.: GOTO109 

94 PRINT"a" ;C5$;R4$.: "■";S*; = GOTO 109 
97 PRINT"a".:C5*;R3*; "■";S$; : GOTO109 










100 FRINT"»” ;C4*;R3*.; ;S*.; = GOTO 109 

103 PRI NT " »" C3$ ; R3$ > " ■ " ; S$ > '■ GOTO 109 
106 REM CICLO DI RTTESR, POI RICOMINCIO 
103 FORK=1TO300:NEXTK• R=0 ' G0T037 
112 REM MOVIMENTO + FUOCO 
115 0=0-128 

118 ONOGOTO124,127,130,133,136,139,142,145 
121 STOP 

124 PRINT"W n ;C3*;R4*;“W;s*;-GOTO109 
127 PRINT"»" ,C3$.:R5$; "H" ;S*; GOTO109 
130 PR I NT »'• ; C4$ ; R5$ ; " f*" ; S* ; : GOTO 1 @9 
133 PRINT"M";C5*;R5»; "«•';s*; GOTO 109 
136 PRINT"a" ; C5$; R4$; "14" ; •• GOTO109 

139 PR I NT ” a" C5$R3$ ; “ W ; S$ ; = GOTO 109 
142 PR I NT " ; C4$R3$ ; " f4” ; s$ ; ■ GOTO 109 

145 PRINT"H";C3*;R3*; ,, r*";S*; ‘GOTO109 
148 REM SOLO FUOCO 

151 PR I NT " a" ; C4$ ; R4* ; " !*" ; S* ; • GOTO 109 


COMMENTO A JOTSTICKI 


.1/25: prepara stringhe di caratteri di controllo per 
spostarsi sul video verso il basso e verso destra. R3$ 
manda a destra di 13 posizioni. R4$ manda a destra di 
14 posizioni. R5$ manda a destra di 15 posizioni. C3$ 
manda in giu' di 13 posizioni. C4$ manda in giu' di 14 
posizioni. C5$ manda in giu* di 15 posizioni. M$ ser¬ 
ve per numerare le colonne del video. 

.28/31 : S$ serve per visualizzare uno spazio in cam¬ 
po inverso, N$ per visualizzare uno spazio e quindi 
cancellare quanto presente in quella posizione. 

.34/46: numera le righe e le colonne del video. 

.49/52: visualizza un quadratino nero nella posi¬ 
zione 14,14. 

.55/64: legge lo stato del joystick 1 fino a quando 
lo trova diverso da 0, crea un ciclo di attesa, e 
cancella il quadratino dalla vecchia posizione. 

.67/70: se stato-128 va alla linea 148: se stato>128 
va alla linea 112. 

.73/103: in base al valore letto esegue il movimen¬ 
to, cioè' disegna il quadratino nella nuova posizione 
in nero. 

. 106/1 09: crea un ciclo di attesa e poi torna alla 
linea 37 per ricominciare. 

.112/145: in base al valore letto esegue il movimen¬ 
to, cioè' disegna il quadratino nella nuova posizione 
in rosso, per segnalare che e' stato premuto anche il 
bottone del fuoco. 
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.148/151: disegna nella vecchia posizione il quadra¬ 
tino in rosso, per segnalare solo bottone del fuoco. 


Abbiamo preparato il programma J0YSTICK2 per dimostra¬ 
re la gestione dei Joystick in BASIC con video grafi¬ 
co; esso lavora con il joystick 1. In esso abbiamo 
preparato un piccolo rombo e lo abbiamo memorizzato 
come SHAPE nella stringa D$. Lo stato del joystick 1 
viene usato per spostare lo SHAPE sul video. Anche in 
questo caso abbiamo creato dei cicli di attesa per 
consentire di studiare le caratteristiche dei 
joystick. Se viene premuto anche il bottone del fuoco 
il rombo viene colorato di nero nella vecchia posizio¬ 
ne, poi viene cancellato e disegnato nella nuova 
posizione. La posizione iniziale e' X1-154, Y1-99. Gli 
incrementi per XI e Y1 in base ai movimenti (primo 
numero per X, secondo per Y) sono i seguenti: 


- 10,-10 


0,-10 10,-10 


- 10 , 0 


10 , 0 


- 10 , 10 


0 , 10 10 , 10 


1 REM JQVSTICK2 
4 REM RTTIVR MODO ORRFICO 
-y ORRPHICl • 1 

io"REM PREPRRR SHRPE, PICCOLO ROMBO 
13 X=159V=99 

16 DRflW 1 .• X, V TO X+5,V+5 TO X,Y+10 

19 DRRW1 TO X-5.V+5 TO X,V 

22 SSHRPED*,X-5,V,X+5,Y+10 

25 X1=X—5 : V1=Y 

28 REM INTERRQGR JOYSTICK 1 

31 R=JOY < 1J 

34 IFR=0THEN31 

37 IFfi=128THEH85 

40 IFfl>128THEM97 

43 REM USO JOYSTICK SENZR FUOCO 

46 REM XD E VD INCREMENTI COORDINATE 

49 IFR=1THENXO=0YD=-10 = G0T076 

52 IFR=2THENXD=10 = VD=-10 :G0TQ76 

55 IFR=3THENXD=10 :YD=0:G0T076 

58 IFR=4THENXD=10•VD=10 >G0T076 

61 IFR=5THENXD=0:VD=10 G0T076 

64 IFR=6THENXD=-10 :VD=10 = G0T076 




67 IFA=7THENXD=-10 :VD=0:G0T076 
70 IFA=8THENXD=-10 = VD=-10 :G0T076 
73 REM CANCELLA VECCHIO E DISEGNA NUOVO 
76 FORK=1TO300=NEXTK=GSHRPED»,X1,V1,4 
79 X1=X1+XD = V1=V1+VD 

82 GSHAPED»,X1,V1=FORK=1TO300 NEXTK=60T031 

85 REM SOLO FUOCO, COLORA VECCHIO 

38 REM CANCELLA E DISEGNA VECCHIO 

91 PAINT,Xl+5,VI+5=FORK=1TO300=NEXTK 

94 GSHAPED»,X1,V1=G0T031 

97 REM MOVIMENTO + FUOCO 

100 REM COLORA VECCHIO E POI CANCELLA 

103 REM DISEGNA NUOVO 

106 PAINT,Xl+5,V1+5=FORK=1TO300:NEXTK 
109 GSHAPED»,X1,V1 

112 IFA=129THENXD=0 = VD=-10 = G0T076 
115 IFA=130THENXD=10=VD=-10=G0T076 
118 IFA=131THENXD=10 :YD=0:G0T076 
121 IFA=132THENXD=10 :VD=10 :G0T076 
124 IFA=133THENXD=0 = VD=10 :G0T076 
127 IFA=134THENXD=-10 VD=10 = G0T076 
130 IFA=135THENXD=-10 : VD=0 •' G0T076 
133 IFA=136THENXD=-10 :VD=-10 :G0T076 


COMMENTO A J0XSTICK2 

1/7: passa in modo grafico e cancella il video. 

10/25: prepara il disegno e lo memorizza. Le coordi¬ 
nate della prima posizione sono X1-154 e X1-99, ango¬ 
lo in alto a sinistra del rombo. 

28/40: memorizza lo stato del joystick 1 e scaglie in 
base al valore da dove proseguire. 

43/70: caso solo movimento: in base al valore letto 
prepara XD e XD, incrementi per XI e II, per definire 
la nuova posizione e prosegue. 

73/82: crea un ciclo di attesa, cancella vecchio 
disegno, incrementa XI e XI e disegna nella nuova 
posizione, poi torna a leggere lo stato del joystick 
1 . 

85/94: caso solo fuoco: colora il rombo nella vec¬ 
chia posizione, crea un ciclo di attesa, lo cancella e 
lo ridisegna. 

97 / 133 : caso movimento + fuoco: colora il rombo nel¬ 
la vecchia posizione, crea un ciclo di attesa, ridi¬ 
segna nella vecchia posizione, poi prepara XD e XD, e 
va alla linea 76. 





CAPITOLO 2 


I FILE SU STAMPANTE 


2.1 INTRODUZIONE 

In questo capitolo descriviamo l'uso della stampante 
COMMODORE MPS-803. che viene di norma venduta per il 
calcolatore COMMODORE 16. Il calcolatore può' essere 
collegato anche ad altre stampanti senza problemi; 
alcune si possono collegare direttamente, per altre e' 
necessaria un'interfaccia speciale. La maggior parte 
dei discorsi che facciamo restano validi anche per 
altri tipi di scampanti; nel caso devi chiederne al 
venditore le caratteristiche, vedere se e' necessaria 
un'interfaccia e leggere accuratamente il manuale 
allegato per scoprire le differenze. 



Figura 2.1 Stampante MPS-803 


La MPS-803 e' una stampante a impatto a matrice di 
punti, nella quale un carattere e' formato da 6 punti 
orizzontali e 7 punti verticali. Essa riconosce e 
stampa tutti i caratteri dei due set disponibili sul 
COMMODORE 16: maiuscolo/grafico e minuscolo/maiu¬ 
scolo. Inoltre può' stampare colonne di punti (7 pun¬ 
ti verticali) e quindi e' una stampante grafica; la 
colonna di punti deve essere opportunamente codifi¬ 
cata. 

Essa si collega tramite l'interfaccia seriale stan¬ 
dard al COMMODORE 16, mediante il cavo fornito che 
termina con uno spinotto DIN a 6-pin, dove i pin han¬ 
no il significato riportato nella Figura 2.2. 


CONNETTORE 

Pin No. 

1 S 

2 G 

3 S 

4 S 

5 S 

6 R 


Signal 

SERIAL SRQ 
GND 

SERIAL ATN 
SERIAL CLK 
SERIAL DATA 
RESET 



Figura 2.2 Presa di collegamento per la MPS-803 


Sulla parte superiore della MPS-803 sono visibili: 

.in alto a sinistra, la manopola per l'avanzamento 
manuale delia carta-, 

.in alto a destra, la levetta per il bloccaggio del¬ 
la carta (da usare quando non e' montato il trascina 
moduli); 

.in basso a destra, una spia luminosa rossa, marcata 
Power, che segnala: 

.con luce continua che la macchina e' accesa, 

.con luce intermittente che si e' verificato un 
errore, 

e vicino un tasto a pressione, marcato Paper Advance, 
per l'avanzamento della carta. 

La copetura anteriore può' essere sollevata, agendo su 



due appositi incavi laterali. Per inserire il nastro 
inchiostrato si deve sollevare tale copertura e si 
rende visibile 1 'alloggiamento del nastro. Nel manua¬ 
le allegato alla stampante sono riportate delle 
illustrazioni che insegnano a montare il nastro. 

Sul lato destro in basso si trova l’interruttore di 
accensione. 

La stampante può' essere alimentata con moduli conti¬ 
nui o con fogli singoli, usando la levetta di bloccag¬ 
gio della carta (quando e’ in posizione OPEN la carta 
e' libera); oppure può' essere montato il trascina 
moduli, richiedendolo al venditore. La larghezza del¬ 
la linea di stampa e' di 80 caratteri (larghi 6 pun¬ 
ti), quindi di 480 punti. Possiamo assumere la 
larghezza della linea di stampa come dimensione del 
record fisico. La stampa e' bidirezionale e la velo¬ 
cita' di stampa e' di 60 caratteri al secondo. Si pos¬ 
sono stampare fino a 3 copie. La stampante non può' 
funzionare se la carta non e' inserita. Quando, duran¬ 
te la stampa, termina la carta, comincia a pulsare la 
spia rossa Power e la' stampa si interrompe; per prose¬ 
guire devi inserire nuova carta e premere il tasto 
Paper Advance. 

Nella parte posteriore vediamo quanto riportato nella 
Figura 2.3. 



Figura 2.3 Parte posteriore della stampante MPS-803 



Lo switch DEVI CE può* essere posto nella posizione 4 o 
nella posizione 5, dando la possibilità' di scegliere 
il "dn" della stampante. Di solito si usa il 4, ma, se 
sono collegate contemporaneamente due stampanti, una 
deve avere dn-5. 

Lo switch LPI può' essere posto nelle posizioni 6 o 7; 
esso indica la distanza di 1/6 o 1/8 di pollice tra 
due linee di stampa. 

La porta seriale SERIAL INTERFACE dispone di due 
ingressi; uno serve per collegare la stampante al 
calcolatore, l'altro per collegare in cascata una 
seconda stampante o una unita’ a floppy disk. Si pos¬ 
sono collegare in cascata piu' periferiche (vedi Para¬ 
grafo 4.10). Se al calcolatore e' collegata una uni¬ 
ta' a floppy disk, la MPS-803 si collega ad essa. 

Il COMMODORE 16 può' inviare dati alla stampante dopo 
avere stabilito una comunicazione con essa; la stam¬ 
pante riceve un flusso di dati e stampa un file. La 
MPS-803 contiene un microprocessore che gestisce le 
operazioni di stampa, eseguendo apposite routine 
memorizzate in una ROM interna, servendosi di una 
descrizione dei caratteri memorizzata in una ROM 
interna, e di un buffer di stampa, cioè* di una parte 
di RAM interna. 

Il COMMODORE 16 invia i dati, attraverso l'inter¬ 
faccia seriale, un bit dopo l'altro; ogni gruppo di 8 
bit (un byte) contiene un codice ASCII, che può' 
variare da 0 a 255. I byte sono ricevuti e memoriz¬ 
zati uno dopo l'altro nel buffer, che può' contenere 
fino a 90 byte; vedremo piu' avanti in quali circo¬ 
stanze avviene realmente la stampa. 

Alcuni dei codici inviati non sono caratteri da stam¬ 
pare, ma codici di controllo che agiscono sul modo di 
funzionare della stampante. 

Quando la stampante funziona, al momento dell'ac¬ 
censione, sia che sia collegata al calcolatore, sia 
che non lo sia, la testina di stampa viene spostata 
dal centro verso sinistra e poi riportata al centro. 
Per vedere se la stampa e' corretta puoi farle esegui¬ 
re l'auto-test. Devi procedere cosi': 

.aver montato correttamente il nastro e inserito la 
carta, 

.dare corrente alla stampante, anche non collegata al 
calcolatore, mentre tieni premuto il tasto anteriore 
"Paper Advance", poi rilasciare tale tasto. 

La stampante stampa ripetutamente tutti i caratteri 
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stampabili. Per interrompere il test devi togliere 
corrente . 


2.2 ISTRUZIONI DI STAMPA 

Prima di stampare si deve aprire la comunicazione tra 
il calcolatore e la stampante con l'istruzione OPEN; 
essa si scrive: 

OPEN lfn,dn,sa 

.lfn (Logicai File Number), e' il numero logico del 
file che si vuole aprire e che deve essere usato nel¬ 
le istruzioni di stampa successive; esso può' variare 
da 0 a 255. Se lfn>127 si ottiene una spaziatura dop¬ 
pia tra una linea e la successiva. 

.dn (Device Number), e' il numero della periferica, 
può' essere *4 o 5, e deve essere quello predisposto 
dall'apposito switch posto sul retro della stampan¬ 
te . 

•sa (Secondary Address), e' un numero che può' vale¬ 
re 0 (valore di default) o 7 e determina il set di 
caratteri che la stampante deve usare nelle succes¬ 
sive operazioni di stampa: 

.0, o niente, per il set maiuscolo/grafico, 

.7, per il set minuscolo/maiuscolo. 

I parametri possono essere costanti o variabili con 
valore intero. 

II set di caratteri scelto con la OPEN resta attivo 
fino alla CLOSE; si può' usare all'interno della lista 
di stampa un codice di controllo che modifica tempora¬ 
neamente il set, ma esso e' valido solo per la stampa 
in corso, cioè' fino al primo carattere RETURN. 

L'istruzione di stampa e': 

PRINT# lfn,lista 

•lfn, deve essere lo stesso usato nella OPEN. 

.lista, e' l'insieme dei dati da stampare, dei carat¬ 
teri separatori, delle funzioni di stampa e dei codi¬ 
ci di controllo per la stampante. Negli esempi succes¬ 
sivi vedremo le caratteristiche di ogni elemento che 
può' comparire nella lista. 

Per scrivere questa istruzione non si può' usare il 
"?" per abbreviare la parola chiave, inoltre non deve 
esserci spazio prima del carattere 
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Il calcolatore, dopo aver eseguito un'istruzione 
PRINT#, chiude la comunicazione con la stampante, ma 
il file logico rimane aperto; esso viene chiuso solo 
dall'istruzione CLOSE. 

Si può' stampare su carta, anche usando l'istruzione 
CMD, dopo aver aperto un file per la stampante. Que¬ 
sta istruzione trasferisce l’uscita, che normalmente 
avviene sul video, alla stampante. Si scrive: 

CMD lfn,lista 

.lfn, deve essere lo stesso usato nell'istruzione 
OPEN . 

.lista, può' essere una normale lista di stampa o 
mancare. 

Dopo l'esecuzione di CMD, con o senza "lista", le 
successive istruzioni PRINT (scritte senza il carat¬ 
tere "#") mandano l'output sulla stampante. Per far 
terminare l'effetto di CMD, cioè' il "dirottamento" 
dell'uscita dal video a un'altra periferica, e' neces¬ 
sario eseguire una PRINT#lfn, con "lfn" uguale a quel¬ 
lo usato per CMD, che serve per chiudere la linea, 
prima della CLOSE. In caso contrario non si ha un 
funzionamento corretto del sistema; inoltre, quando si 
e' in stato CMD, non si deve accedere a un'altra 
periferica collegata in serie (disco o altra stam¬ 
pante). Il comando LIST, usato dopo CMD, provoca la 
lista del programma sulla stampante. 

Il modo corretto per ottenere la lista dei programmi 
sulla stampante e' eseguire in immmediato: 

0PEN4,4 : CMD4 : LIST: PRINT#4: CLOSE4 

può' essere utile assegnare a un tasto funzione la 
sequenza di istruzioni necessarie per listare i 
programmi, eseguendo per esempio: 

KEf1 ,"OPEN 4,4 :CMD4: LIST : PRINT#4:CLOSE4»+CHR$(13 ) 
in modo che premendo FI si ottiene la lista con chiu¬ 
sura corretta del file. 

Quando le operazioni di stampa sono terminate, deve 
essere eseguita l'istruzione: 

CLOSE lfn 

che serve per chiudere la comunicazione. Dopo l'ese- 
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cuzione della CLOSE non si può' piu' comunicare con il 
file "lfn", se non si esegue nuovamente una OPEN. 

E' importante non lasciare aperti i file che non ser¬ 
vono piu'; si rischia di occupare inutilmente posto 
nella tabella dei file, che ha solo 10 posti. 

Le istruzioni di stampa possono essere usate sia in 
modo immediato che da programma. 


ESEMPI DI STAMPA IN MODO IMMEDIATO 

Usando in modo immediato le 4 sequenze di istruzioni 
che seguono, si ottiene sempre lo stesso risultato 
sulla stampante e si opera correttamente chiudendo sia 
la linea che il file logico. 


. 1 ) 

0PEN4,4:PRINT#4,"MPS-803”:CLOSE4 
stampa MPS-803 e va a capo. 

. 2 ) 

OPEN4,4 :CMD4,"MPS-80 3":PRINT#4:CLOSE4 
stampa MPS-803 e va a capo. 

.3) 

0PEN4,4:CMD4:PRINT"MPS-803":PRINT#4 :CLOSE4 
stampa MPS-803 e va a capo. 

.4) 

OPEN4,4,7:CMD4:PRINT"MPS-803":PRINT#4:CLOSE4 
stampa mps-803 (abbiamo usato sa»7) e va a capo. 


ESEMPI DI STAMPA DA PROGRAMMA 

Il programma SAOCMDLIST, che segue con i suoi risul¬ 
tati, apre il file logico con lfn-1 sulla stampante 
(dn-4), usando sa-0, che poteva anche essere saltato, 
dato che 0 e' il valore di default, e quindi lavora 
con il set maiuscolo/grafico. Nel programma alla linea 
15 e' inserito il comando LIST, cioè' il programma 
lista se stesso, poi continua e stampa una frase. Al¬ 
la linea 25 viene eseguita l'istruzione PRINTfl per 
chiudere la linea e poi la CL0SE1. 
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1 REM 3R0CMDLIST 

5 OPEN1,4,0 : REM OPRE CON SR=0 

IO CMD1 : REM USCITO DO VIDEO fi STfiMPfiNTE 

15 LIST ; PRINT 

£0 PRINT"OPEN CON Sfi=0 E USO CMD E LIST" 
25 PRINTttl:CLOSE1 

OPEN CON Sfl=0 E USO CMD E LIST 


Il programma SA7CMDLIST e' uguale al precedente 
vo che apre il file di stampa con sa»7 e quindi 
ra con il set di caratteri minuscolo/maiuscolo. 


1 rem ss.7cmdl ist 

5 oPerìl i 4,7 ; rem apre con s=>.=7 

10 crudi : rem uscita, da. video a stampante 

15 1istsprint 

20 Print"oPen con sa=7 e uso crnd e list" 
25 P rint#1 : c1ose1 

operi con sa=7 e uso crnd e list 


Segue il programma SETMPS-803. che stampa in 
tabellare i due set di caratteri disponibili 
stampante. Il disegno dei caratteri e' 
registrato nella HOM interna alla stampante 
differisce un po' dalla forma dei caratteri che 
re sul video: 6x7 punti per la stampante, 8x8 
sul video. 


I REM SETMPS-803 

5 fi$=" SET MfiIUSC-OLO/GRfiFICO" 

6 Sfi=0 

10 QPEN4,4,SfiPRINT#4,R$ 

II PRINT#4 : PRINT#4," I "; 

12 FORK=0TO9PRINT#4,MID*<STR*<K>,2>;" "i 

13 NEXTK 

14 PORK=65TO70=PRIHT#4,CHR*<K>;" " i : NEXTK 

15 FRIHT#4:PRINT#4,CHR$(192>"H"; 

16 FORK=1TO16 = PRINT#4.CHR$ <192 > CHR* <192 > J 

17 NEXTK=PRINT#4=1=0 

19 FORK=0TO9 = PRINT#4,MID*<:STR*<K>,2>; " I " ; 

20 GOSUB100 : I = I +1 :NEXTK 

23 FORK=65TO70 = PRINT#4.. CHR*< K > ; " I " .: 

25 GOSUB 100 : 1 = 1 + 1 : NEXTK 


, sal- 
lavo- 


f orma 
3ulla 
quello 
, che 
appa- 
punt i 



27 IFSR=7THENCL0SE4 ; STOP 

23 FRINT#4:FRINT#4:Sfi=7 

3® H*= M SET MAIUSCOLO/MINUSCOLO" 

31 CL08E4: GOTO10 
10® IK=I ! F0RL=1T016 

101 IFIKC32THENPRINT#4," "; =GOTO104 

102 IFIK>127RNDIKd60THENPRINT#4, " ".;:G0TO104 

103 PRINT#4,CHR*<IK>; " " ; 

104 IK=IK+16 = NEXTL PRINT#4: RETURN 


I caratteri da stampare sono Inviati come codici 
ASCII; il programma stampa spazi al posto dei carat¬ 
teri corrispondenti ai codici da 0 a 31 e da 128 a 
159, formando le due colonne vuote nelle tabelle, da¬ 
to che non corrispondono a caratteri stampabili. Le 
coordinate orizzontali e verticali delle due tabelle 
sono espresse in esadecimale (le cifre esadecimali da 
A a F corrispondono ai numeri decimali da 10 a 15). 

Per ottenere il codice ASCII dei caratteri devi molti¬ 
plicare per 16 la coordinata di colonna (sopra) e 
aggiungere la coordinata di riga (laterale). 


HISULTATI PROGRAMMA SETMPS-803 


SET P1RI USCOLO/GRRF ICO 


1 0 

_| _ 

1 2 

3 

4 

5 

6 

7 8 

9 R 

B 

c 

D 

E 

F 

1 - 

0 1 


0 

e 

P 

— 

“1 


r 

— 

1 


r 

1 1 

1 

1 

R 

Q 

* 

• 

1 

_L 

* 

• 

1 

JL 

2 1 

H 


B 

R 

1 

_ 

m 

T 

1 

_ 

m 

T 

3 1 

ft 

o 

C 

S 

— 

* 

~ 

4 

— 

* 

~ 

4 

4 1 

$ 

4 

D 

T 

— 

1 


1 

— 

1 


1 

5 1 

v 

5 

E 

U 



r 

1 

“ 


r 

1 

6 1 


6 

F 

V 

— 

X 

$ 

1 

— 

X 

m 

1 

7 1 


7 

G 

M 

1 

0 

i 


1 

o 

1 


8 1 


8 

H 

v 

1 

4* 



1 

* 



9 1 


3 

I 

V 


1 

r 



1 

V 


R 1 

* 


.T 

•p 


♦ 

i 

J 


♦ 

1 

J 

E: 1 

+ 


K 

i 

m > 

+ 


■ 


4- 

h 

■ 

C 1 


< 

L 

£ 

L 

Si 

■ 

■ 

L 

'5! 

■ 

■ 

D 1 

— 

= 

M 

1 

X 

1 

L 

-1 

X. 

1 

L 

-1 

E 1 


■> 

N 

T 


IT 

~ì 

■ 

s 

IT 



F 1 

r" 

? 

0 

*- 

r 



% 

r 

"4 

_ 

fi 
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set- maiuscolo/minusco 1 o 


1 0 

1 2 

•-» 

4 

5 

6 

7 8 

9 a. 

b 

C 

d 

e 

f 

-1 - 

0 1 


0 

e 

P 

— 

P 


r 

— 

P 


r 

1 1 

1 

1 

•9. 

* 

PI 

Q 

1 

•x 

H 

Q 

1 

_L 

2 1 

II 

2 

b 

r 

B 

R 

m 

T 

B 

R 

m 

T 

3 1 

* 

3 

c 

3 

C 

S 



c 

S 


H 

4 1 

* 

4 

d 

t 

D 

T 

_ 

1 

D 

T 

_ 

1 

5 1 

y. 

5 


U 

E 

U 

i 

1 

E 

U 

1 

1 

6 1 

& 

6 

f 

V 

F 

V 

m 

1 

F 

V 

m 

1 

7 1 


“7 

9 

bJ 

G 

w 

i 


G 

w 

\ 


8 1 

< 

8 

h 

X 

H 

X 

tSf 


H 

X 

a* 


9 1 

> 

3 

i 

y 

I 

V 

% 


I 

V 

% 


-a 1 

* 


j 

Z 

J 

2 

1 

V' 

J 

z 

1 


b 1 

+ 

t 

K 

C 

K 

■+ 

i 

■ 

K 

+ 

h 

■ 

c 1 


S~ 
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£ 

L 

t 

■ 

■ 

L 

a 

a 

■ 

d 1 

— 
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m 

3 

ri 

1 

L 

_i 

M 

i 

L 


e 1 

m 


n 

T 

N 

X 

~! 

■ 

N 

X 


• 

P 1 



o 

*7- 

O 


_ 

V 

O 


_ 

X 


COMMENTO A SETMPS-803 

.5/6: prepara in A$ l'intestazione della prima tabel¬ 
la e pone SA-0. 

.10: apre il file logico con lfn-4, il valore attua¬ 
le di SA per la stampante, e stampa il titolo della 
tabellina. 

.11/17: stampa le coordinate di colonna e le linee 
separatrici (CHR$(192) da' luogo a un trattino), e po¬ 
ne il contatore I a 0. 

.19/20: stampa le linee corrispondenti alle coordi¬ 
nate di riga da 0 a 9, servendosi del sottoprogramma 
in 100 per stampare i caratteri del set attivo. 

.23/25: come sopra per le linee con cordinate da A a 
F. 

.27: se SA-7 chiude il file logico e si ferma. 

.29/31: pone SA-7, prepara la nuova intestazione in 
A$, chiude il file logico e torna alla linea 10 per 
stampare la seconda tabellina. 

.100/104: sottoprogramma che in base al codice del 
carattere, che trova inizialmente in I e pone in IK, 
stampa, se sono stampabili, i 16 caratteri di una 
linea. Non stampa il carattere se il codice e' minore 
di 32 oppure compreso tra 128 e 159, estremi inclusi. 
I caratteri che stanno su una linea hanno codici che 
differiscono di 16 da quello precedente. 
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2.3 MODI DI STAMPA E USO DEI CARATTERI DI CONTROLLO 

Il valore di "sa" usato nella OPEN predispone l'uso di 
uno dei due set di caratteri disponibili nella 
MPS-803, in modo permanente, fino all'esecuzione del¬ 
la relativa CLOSE. Il valore di "sa" influenza la 
stampa in MODO CARATTERE, cioè' quella attiva al 
momento dell'accensione della stampante. Per ottenere 
il passaggio al MODO GRAFICO devi inviare un carat¬ 
tere di controllo (CHR$(8)); in tale caso e' neces¬ 
sario inviare un altro carattere di controllo per tor¬ 
nare al modo testo (CHR$(15)). 

Possiamo considerare come una prima distinzione nelle 
possibilità' di stampa i due modi: carattere e grafi¬ 
co; ad essi possiamo aggiungere gli altri modi che si 
ottengono con l'uso di alcuni caratteri di controllo. 
Segue l'elenco dei caratteri di controllo che hanno un 
particolare significato per la stampante MPS-803; es¬ 
si devono essere inviati nella "lista" di un'istru¬ 
zione PRINT diretta alla stampante, come stringa, 
usando la funzione CHR$. Per ogni carattere indichia¬ 
mo: il codice, il significato, i parametri che devono 
seguire il codice, se necessario, e il numero dei byte 
che vengono occupati in conseguenza nel buffer della 
stampante. Se un codice richiede dei parametri, ovvia¬ 
mente questi vengono trasmessi, ma non stampati. Alcu¬ 
ni codici vanno usati insieme ad altri, altrimenti 
perdono significato. 

Tieni presente che i codici di controllo hanno in 
generale significato diverso se diretti al video inve¬ 
ce che alla stampante; gli unici che producono lo 


stesso 

effetto sono 10, 

<D 

CO 

m 

1 A6. 


CODICE 

SIGNIFICATO 

PARAMETRI 

NUM 

. BYTE 

8 

MODO GRAFICO 

no 


1 

1 0 

invio LINE FEED 
e RETURN 

no 


1 

1 3 

invio LINE FEED 
e RETURN 

no 


1 

1 A 

MODO CARATTERE 
ALLLARGATO 

no 


1 

1 5 

MODO CARATTERE 
NORMALE 

no 


1 

1 6 

SPOSTAMENTO PO¬ 
SIZIONE STAMPA 

A UNA COLONNA 

2 


3 
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17 

PASSAGGIO SET 
MINUSC./MAIUSO . 

no 


i 


18 

MODO RVS-ON 

no 


i 


26 

MODO RIPETIZIO¬ 
NE CAR. GRAFICO 

1 


2 


27 

SPOSTAMENTO PO¬ 
SIZIONE GRAFICA 
deve essere se¬ 
guito da CHR$(16 ) 

2 


4 


1 45 

PASSAGGIO SET 
MAIUSC./GRAFICO 

no 


1 


1 46 

MODO RVS-OFF 

no 


1 


Esaminiamo dettagliatamente 

i 

singoii 

codici 


controllo, riportando alcuni programmi esempio. In 
alcuni programmi esempio abbiamo usato la tecnica di 
far lavorare il programma stampando i risultati, poi 
il programma lista se stesso; in conseguenza, in que¬ 
sti casi, vedrai prima i risultati e poi il listato 
del programma. 


CHR$(8) MODO GRAFICO 


Predispone la stampa in modo grafico; tale modo resta 
attivo fino all'invio dei codici di controllo 14 o 15, 
che riportano rispettivamente in modo carattere allar¬ 
gato e in modo carattere normale. 

Dopo aver attivato il modo grafico devi passare nella 
lista di stampa i codici dei caratteri grafici da 
stampare, come stringa. Ogni carattere grafico e' for¬ 
mato da una colonna di 7 punti, e viene codificato 
secondo le seguenti regole: 

.i punti da disegnare devono corrispondere alla cifra 

1, quelli da non disegnare devono corrispondere alla 
cifra 0, 

.le 7 linee hanno pesi diversi, partendo dall'alto i 
pesi sono: 1, 2, 4, 8, 16, 32, 64, cioè' le potenze di 

2, partendo dall'esponente 0 e arrivando all'espo¬ 
nente 6 , 

.devi - moltiplicare ogni cifra per il peso corrispon¬ 
dente e sommare i valori, per una colonna con 7 cifre 
1 ottieni 1+2+4+8+16+32+64-127, per una colonna con 7 
cifre 0 ottieni 0, 
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.al numero ottenuto devi aggiungere 128, in tale mo¬ 
do il codice calcolato può' variare da 128 a 255. 

Il codice deve essere passato nella "lista" di stampa 
con la funzione CHR$. Se desideri ottenere un disegno 
composto da piu' colonne, devi ripetere il proce¬ 
dimento spiegato per ogni colonna. 

Abbiamo preparato il disegno di un omino con le brac¬ 
cia alzate, occupando 11 colonne di 7 punti; lo ripor¬ 
tiamo indicando con asterischi i punti da disegnare e 
con lineette quelli da lasciare in bianco. Inoltre 
riportiamo di fianco l'immagine ottenuta con 0 e 1 e 
con a margine i pesi di ogni punto e sotto ogni colon¬ 
na il codice risultante dal calcolo. 



1 ) 

0 

1 

1 

0 

1 

1 

1 

0 

1 

1 

0 


2) 

0 

0 

1 

1 

0 

1 

0 

1 

1 

0 

0 


4) 

0 

0 

0 

1 

1 

1 

1 

1 

0 

0 

0 

--### - - 

8) 

0 

0 

0 

0 

1 

1 

1 

0 

0 

0 

0 

-1 * *- 

16) 

0 

0 

0 

0 

1 

1 

1 

0 

0 

0 

0 

-«ft-tt*- 

32) 

0 

0 

0 

1 

1 

0 

1 

1 

0 

0 

0 

-«««-# # * - 

64) 

0 

1 

1 

1 

0 

0 

0 

1 

1 

1 

0 

Valore codici : 

0 

65 

67 

102 

61 

31 

61 

102 

67 

65 

0 

Aggiungendo 

1 28 

agl i 

1 1 

codic1 

otteniamo : 





128, 193, 195, 230, 189, 159, 189, 230 , 195, 193, 128, 
passando dopo CHR$(8) le funzioni CHR$ degli 11 codi¬ 
ci otteniamo il disegno di un omino. Il nostro dise¬ 
gno e' simmetrico e Inizia e finisce con una colonna 
bianca; per questo disegnando vicino alcuni omini es¬ 
si non risultano attaccati insieme. 

Nel programma C0D8-1 abbiamo inserito gli 11 numeri 
con una linea DATA, la 4; poi prepariamo nella strin¬ 
ga A$ l'omino completo come stringa; stampando A$, in 
modo grafico, otteniamo il disegno. 
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xxxxx 

xxxxxxx 

xxxxxxxxx 

XXXXXXXXXXX 


I reni codS—1 
£ operilo.. 4, 7 

3 cmdlO 

4 dataO,65,67,102,61,31,61,102,67,65,0 

5 **="":fori=lto11 

6 r ■ e a. d a. a=a + 12 © 

7 ■s.$=*l'+chrt(.3i> 

8 nexti 

9 P orK=1to5 

10 P r i ntchrt < 8 > a* ; 

II nextK Print Print. 

12 f orK=1to7 

13 Print-At-; 

14 nextK : Print : P r int 

15 forK=lto9 

16 PrintA*; 

17 nextK ; Print : Print 

18 forK=ltol1 

19 PrintAt; 

20 nextK = P rint 

21 P r i n t chr $■ < 15 > 

22 Print =1ist : Pr int#10 : c1ose10 


COMMENTO A C0D8-1 

.2/3: apre la stampante con lfn-10 e sa-7, con CMD10 
trasferisce l'uscita video alla stampante. 

. : linea DATA con i codici delle 11 colonne di pun¬ 

ti, prima di aggiungere 128. 

.5/8: legge gli 11 codici, aggiunge 128 a ogni codi¬ 
ce e costruisce la' stringa A$ con il disegno. 

.9/11: stampa 5 omini, dopo aver attivato la stampa 
grafica con CHR$(8). Il codice e' usato all'interno 
del ciclo FQR, e quindi viene inviato 5 volte; basta¬ 
va inviarlo una sola volta prima del ciclo FQR. Alla 
linea 11 esegue 2 volte PRINT, la prima volta per 
andare a capo e la seconda per produrre uno spazio. In 
modo grafico la distanza tra le righe e' minore 
rispetto al modo carattere. 
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.12/1H: stampa 7 omini, lavorando come sopra, ma sen¬ 
za inviare di nuovo il codice 8. 

.15/17: stampa 9 omini. 

.18/20: stampa 11 omini. 

.21: ritorna in modo carattere normale stampando 

CHR$(15) 

.22: lista se stesso, chiude la linea e il file. 


Nel programma esempio C0D8-2, abbiamo disegnato una 
casetta che occupa un rettangolo di 17 colonne e 21 
righe. Per poterla stampare la dobbiamo dividere a 
strisce alte 7 punti ciascuna; otteniamo 3 strisce. 
Stamperemo le tre parti una per riga, una sotto l'al¬ 
tra. 

Per evitare la fatica di calcolare i codici abbiamo 
disegnato la casetta in 21 lìnee di programma, 21 
linee DATA, scritte una dopo l'altra. Prima, con una 
REM abbiamo numerato le colonne, per disegnare piu' 
facilmente. La casetta viene disegnata usando gli 
asterischi. 

Abbiamo incorporato nel programma una routine che leg¬ 
ge le 21 stringhe, 7 per volta, analizza i caratteri 
delle stringhe e sostituisce 1 agli asterischi e 0 
agli spazi. Poi calcola il valore di ogni colonna, 
aggiunge 128 e costruisce la stringa con la funzione 
CHR$ di ogni codice. 

Puoi estrarre questa routine e adattarla a disegni di 
altre dimensioni. Ricordati di usare un numero di 
righe multiplo di 7. 

Il programma stampa 10 volte la casetta e poi lista se 
stesso. 
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1 REM C0D8-2 

3 DI MT$ C7::., C*<3 > ■ REM STR XNGHE PER DI SEGNO 

4 DIMT <6>: REM PER CRLCOLO 

8 REM DISEGNO CRSETTA IN 21 LINEE DfiTfl 


9 REM l; 

2345678901234567 

10 

DATA" 


11 

DATA" 

* 

12 

DATR" 

* 

13 

DATA" 

* * 

14 

DATA" 

* * * 

15 

DATA" 

* * *** 

16 

DATA" 

* ** * 

17 

DATA" 

* * '* 

18 

DATA" 

* *« 

19 

DATA" 

* * 

20 

DATA" 


21 

DATA" 

* * 

“«■> 

&.C- 

DATA" 

* *** * 

oo 

LI_*_' 

DATA" 

* * * * * * 

24 

DATA" 

* «*« *** * 

25 

DATA" 

* * 

26 

DATA" 

* * 

27 

DATA" 

'* **'* * 


DATA" 

* * * * 

29 

DATA" 

* * # * 

30 

DATA" 

*************** 


36 PRINT"nSTO CRLCOLRNDO I CODICI DELLA CRSETTR” 
40 REM CALCOLO COLONNE DI PUNTI 
45 F0RK=1TQ3 : C$00 = " " : F0RJ=1T07 
50 RERDT $ <J > :PRINTT»<J> = NEXTJ 
55 F0RL=lT017 : 1=0 

60 FOR J= l T07 : T < I > =RSC < M ID$ < T* < J > , L .• 1 > > 

65 IFT C11=42THENT <I> = 1 =ELSET <I>=0 
70 1=1+1=NEXTJ 

75 T=0:FORJ=0TO6:T=T+TCJ > # 2 tJ:NEXTJ:T=T+128 
SO C»<K>=sC*<.K>+CHR$<T> ; NEXTL 
85 NEXTK 


100 REM STAMPA CASETTA 
105 0PEN4,4:PRINT#4,CHR$<8> 

110 FORJ=1T03:FORK=1TO10 

115 PRINT#4,C$<J>; :NEXTK=PRINT#4 

120 NEXTJ 

125 PRINT#4,CHR*<15> 

130 CMD4:LIST = PRINT#4:CL0SE4 
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COMMENTO A COD8-2 

.3: dimensiona T$(7) per* contenere le 7 stringhe di 
una striscia, e C$(3) per contenere le 3 stringhe da 
stampare per formare il disegno. 

.4: dimensiona un vettore T(6) per contenere i 7 
numeri corrispondenti a una colonna di punti. 

.8/30: disegno della casetta in linee DATA. 

.36: stampa un messaggio per avvisare che esegue il 
calcolo dei codici. 

.40/85: ciclo per calcolare i codici della casetta. 

.45: inizia il ciclo per K da 1 a 3 per calcolare 
le 3 stringhe che costruiscono il disegno, pulisce la 
stringa e inizia un ciclo per J da 1 a 7 per leggere 7 
linee DATA. 

.50: legge la stringa, la stampa sul video, 

disegnando cosi' la casetta con gli asterischi, e 
chiude il ciclo di J. 

.55: inizia il ciclo per analizzare i 17 caratteri 
di ogni stringa, e pone 1-0, indice per il vettore T. 

.60/70: preleva da ognuna delle 7 stringhe i 7 
caratteri che occupano la stessa posizione verticale e 
trasforma gli asterischi in 1 e gli spazi in 0 prima 
di porli nel vettore T(l). Alla fine del ciclo il vet¬ 
tore T(I) contiene una colonna di punti in cifre 1 e 
0 . 

.75: calcola il codice corrispondente moltipli¬ 

cando le cifre per i relativi pesi, poi aggiunge 128. 

.80: aggiunge alla stringa C$(K) il nuovo carat¬ 
tere grafico calcolato e chiude il ciclo di L. Alla 
fine di questo ciclo la stringa C$(K) contiene tutti i 
17 codici della striscia relativa, trasformati in 
carattere ASCII. 

.85: chiude il ciclo di K. Alla fine sono pronte le 
3 stringhe C$(K). 

.100/120: stampa 10 casette ripetendo 10 volte ogni 
disegno e poi andando a capo. 

.125: disattiva il modo grafico e torna al modo 
carattere normale. 

.130: lista se stesso e chiude. 


CHR$(10) e CHR$(13) INVIO LINE FEED E RETURN 


Questi due codici hanno lo stesso comportamento, ognu¬ 
no di essi stampa un LINE FEED e un RETURN e provoca 
la stampa di tutto quello che e’ contenuto nel buf- 
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fer. Se termini una "lista" con uno di questi codici, 
e non aggiungi il finale, la mancanza di punteg¬ 
giatura provoca un ulteriore RETURN. 

Nel programma CODIO/13 che segue, ti mostriamo come 
l'effetto dei due codici sia il medesimo e come 
influisce il valore di "lfn" sulla spaziatura tra le 
linee. 


1 REM CODI0/13 
5 OPEN129,4 

10 0*="PR0V01 LFNM28" =B*="PROVO DI CHR*<10>" 
15 PRINT#129,O*CHR*<10:>B* 

20 C*="PR0V02 LFN>128" ‘D*="PROVO DI CHR*<13>" 
25 PRINT#129,C$CHR*0 3:>D* 

30 CL0SE129 
35 OPEN10,4 

40 E*="PROVR3 LFN<?128"'F*="PROVO DI CHR*<10>" 
45 PRINT#10,E*CHR*<10>F* 

50 G*="PR0V04 LFN028" = H*="PROVO DI CHR*<:13>" 
55 PRINT#10,G*CHR*<13>H* 

60 CLOSE10 
65 STOP 


RISULTATI PROGRAMMA CODIO/13 


PROVO 1 LFN?-128 
PROVO DI CHR*<10> 

PR0V02 LFN? 1 128 
PROVO DI CHR*<13/ 

PR0V03 LFNC128 
PROVO 01 CHR*C1©> 
PR0V04 LFNC128 
PROVO DI CHR*C13> 


COMMENTO A CODIO/13 

.5: apre con lfn-129 (>127) e questo provoca una dop¬ 
pia spaziatura a fine linea se manca la punteggiatura 
finale. 

.10/15: prepara le due stringhe A$ e B$ e le stampa 
separandole con CHR$(10); esse vengono stampate una su 
ogni riga, ma alla fine si ha un doppio spazio. 
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.20/25: come sopra, ma separando le due stringhe con 
CHR$(13); ai ottiene lo stesso effetto di prima. 

.30: chiude il file con lfn-129. 

•35: apre il file con lfn-10 (<127) e questo provoca 
una spaziatura semplice in assenza di punteggiatura 
finale. 

.40/60: stampa con gli stessi codici di controllo e 
ottiene la spaziatura semplice anche in assenza di 
punteggiatura finale. 

Se la punteggiatura finale invece di essere un ";" e' 
una ", ", si ha l'aggiunta di 10 spazi, e questo può' 
provocare il passaggio a nuova linea, anche se non so¬ 
no presenti o il codice 10 o il codice 13- 


CHR$(14 ) MODO CARATTERE ALLARGATO 


Predispone la stampa in modo testo del carattere 
allargato, cioè' del carattere formato da 12 punti per 
riga e 7 punti per colonna. La predisposizione rimane 
fino a quando si invia il codice 15, per tornare al 
carattere normale, o il codice 8 per passare in modo 
grafico. 

Segue il programma C0D14-1, che stampa due linee in 
carattere allargato, poi torna al modo normale, lista 
se stesso e chiude correttamente la comunicazione. 


COMMODORE 

MPS-S03 


1 REM CODI4-1 

2 OPEN10,4 

3 CMD10 

4 PRINTCHR$d4> "COMMODORE" 

5 PRINTCHR*d4>" MPS-803 " 

6 PRINTCHR*<15> 

7 LIST 

8 PRINT#10 ; CLOSE10 


Il programma COD14-2, invece, mostra come si possono 
ottenere sulle stesse linee di stampa sia caratteri 
normali che caratteri allargati, usando alterna¬ 
tivamente i codici 14 e 15. 
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1 REM CODI4-2 

2 OPEN10,4 

3 PRINT#10, CHR*< 14 > "COMMODORE *' ; 

4 PRINT#10,CHR$ < 15 > “COMMODORE " 

5 PRINT# 10, CHR$ <14 > " MPS-803 " J 

6 PRINT#10,CHR#<15V MPS-803 " 

7 F0RK=65T068 

8 PRINT#10,CHR*< 14>CHR*<K>CHR$< 15>CHR$<K> 

9 HEXTK 

10 PRINT#10,CHR* <15 >= CLOSE10 


In questo caso stampiamo con PRINT#10 
rendo la stampa dal video alla stampan 
Nota alle linee 7/9, come otteniamo in 
pa alternata di un carattere allargato 
inoltre scriviamo le variabili strin 
all'altra senza punteggiatura, ma dobb 
";" finale per evitare che vada a capo. 


e non tras 
te con CMD 
ciclo la st 
e uno norma 
ga una vie 
lamo porre 


f e- 
10 . 
am¬ 
ie; 
ino 
un 


RISULTATI PROGRAMMA CODIU-2 


COMMODORE COMMODORE 
MPS-S03 MPS-803 
RflEBCCDD 


CHR$(15) MODO CARATTERE NORMALE 


Predispone la stampa 
all'accensione. Devi 
tlvare sia il modo a 
grafico. 


nel modo normale, che e' attivo 
usare questo codice per disat- 
carattere allargato, che il modo 


CHR$(16 ) SPOSTAMENTO POSIZIONE STAMPA A UNA COLONNA 

— ■“ — *5 — — -i — — — — — -,— -.-, — -5-. — — -5 — — - — - 

Questo codice predispone l’inizio della stampa a una 
colonna, tra 00 e 79. Il numero della colonna, espres¬ 
so come stringa di 2 caratteri, deve seguire immedia¬ 
tamente CHR$(16). Ricorda che le cifre numeriche han¬ 
no codice ASCII che varia da ^8 a 57; per indicare la 
colonna 18 puoi scrivere "18" oppure CHR$(M9 )CHR$(56 ). 
Il codice 16 può' essere usato sia in modo testo che 
in modo grafico. Riportiamo un esempio nel programma 
CODI 6-1. 
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01234567890123456789012345678901234567890123456789 
0 3C i 2 X 

01234567890123456789012345673901234567890123456789 

X 0 XI X 2 

1 REM CODI6-1 
5 OPEN10,4 
10 CMO10 : fi*="" 

15 OfiTRO,65,67,102,61,31,61,102,67,65,0 
20 DfiTfi48,48,49,53,51,48 
25 FORI = ITO11 :REflOfi 
30 fi*=fi*+CHR*-::fi+128> 

35 NEXTI 

40 GOSUB100 

50 FORI=0T02=REROX,V 

55 PRINTCHR*< 15>CHR*< 16>CHR*<X>CHR*<V> ; I ; CHR*<8>ft*J 
60 NEXTI PRI MTC.HR* < 15 > 

65 GOSUB100=RESTORE20 ’FORI=0TO2:REfiDX,V 

70 PRIHTCHR* <8>CHR*<16 >CHR* <X>CHR* <V >; fi*;CHR* C15 >,I, 

75 NEXTI 

80 PRIHTCHR*C15 > LIST 
85 PRINT#10:CLOSE10=STOP 

100 FORK=0TO4^ FORI=0TO9:PRIHTCHR* <48+1}; 

105 HEXTI :HEXTK=PRIHT: RETURN 


COMMENTO A C0D16-1 

.5/10: apre il file logico 10 per la stampante, 
trasferisce l'uscita video alla stampante e pulisce la 
stringa A$. 

.15: linea DATA che contiene i codici dell'omino con 
le braccia alzate, precedentemente preparato; esso 
occupa 11 colonne di punti. 

.20: linea DATA che contiene 3 coppie di cifre, in 
codice ASCII, per definire le tre colonne: 00, 15, 30. 

.25/35: preparazione in A$ del disegno dell'omino, 
aggiungendo 128 a ogni codice e trasformandolo in 
stringa. 

.40: esecuzione del sottoprogramma in 100 per stam¬ 
pare una linea di numerazione delle posizioni di stam¬ 
pa . 

.50/60: stampa in ciclo, dopo aver letto le cifre di 
ogni colonna dalla linea DATA 20, aver definito la 
posizione di stampa, del numero I e dell'omino. Nota 
nei risultati che le colonne selezionate sono 00, 15 e 
30, che i numeri sono stampati preceduti e seguiti da 
uno spazio, e che gli omini occupano quasi due posi¬ 
zioni carattere. In questo caso il codice 16 viene 
usato trovandosi in modo carattere per effetto del 
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codice 15. Concluso il ciclo, va a capo e ripristina 
il modo carattere con il codice 15. 

.65/75: esegue nuovamente il sottoprogramma per nume¬ 
rare le posizioni di stampa, poi passa con il codice 8 
in modo grafico e usa il codice 16 per definire la 
posizione della colonna di inizio stampa. Nel ciclo 
viene stampato prima l'omino e poi il numero I, dopo 
essere tornati in modo carattere con il codice 15. No¬ 
ta nei risultati che: gli omini iniziano esattamente 
alle colonne 00, 15 e 30 (la numerazione va da 0 a 
79), mentre i numeri iniziano esattamente 8 punti do¬ 
po l'omino, cioè' risultano sfalsati rispetto alla 
sovrastante colonna di numerazione. 

.80/85: ripristino del modo carattere, lista del 
programma e chiusura del file. 

.100/105: sottoprogramma di numerazione linea di 

stampa da 0 a 9 per 5 volte. 


CHR$(17) PASSAGGIO AL SET MINUSCOLO/MAIUSC0L0 


Questo codice fa passare al set minuscolo/maiuscolo, 
con validità' locale, cioè' solo per l'istruzione di 
PRINT in corso (fino al primo RETURN), indipen¬ 
dentemente dal set selezionato con l'istruzione OPEN, 
che torna attivo al termine della PRINT. 

Osserva piu' avanti i 4 programmi esempio da 
CODI 7/145*1 a C0D17/145-4, come puoi vedere il lista¬ 
to del programma esce con il set selezionato 
dall'istruzione OPEN, indipendentemente dall'uso del 
codice 17 nell'ultima PRINT eseguita. 


CHR$(18 ) e CHR$(146) MODI RVS-0N E RVS-0FF 


Il codice 18 predispone la stampa in campo inverso: 
RVS-0N, mentre il codice 146 predispone la stampa 
normale: RVS-0FF. Il primo ha validità' locale, cioè' 
resta valido fino al primo carattere RETURN. Per que¬ 
sta ragione, se non si desidera alternare sulla stes¬ 
sa linea i due modi di stampa, non e' necessario usa¬ 
re il codice 146. 

Il programma COD18/146-1, che segue, illustra quanto 
dettt». 
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10 CMD10 ^ R^="" 

CARATTERE NORMALE 

W51SISHWCRMB IO WISIsMWCAMB I o 

1 REM CODI8/146-1 
5 A$="CARATTERE NORMALE" 

10 B*="CARATTERE IN CAMPO INVERSO" 
15 C*="CAMBIO" 

20 0PEN4 > 4 : CMD4 
25 PRINTA* 

30 PRI NT CHR$ < 18 > B*CHR* <146 > 

35 FORK=lT02 

40 PRINTCHR*<18>C$CHR$ <146 >C*; 

45 NEXTK. : PR I NT 
50 LIST ; PRINT#4 
55 CL0SE4 : STOP 


Il modo RVS-ON può* essere usato solo per la stampa in 
modo testo, carattere normale o allargato. 

Questi due codici possono essere usati con lo stesso 
effetto per la stampa sul video. Segue il programma 
GETPEEK per chiarire ulteriormente questo argomento. 


PIPPO DIRETTO E INVERSO 
VALORI LETTI CON PEEK : 

16 9 16 16 15 144 137 144 144 143 

VALORI LETTI CON GET: 

30 73 30 SO 73 80 73 80 80 73 

CARATTERI IH CAMPO INVERSO: 

aaaiiMaiaaiflai 


1 REM GETPEEK 
10 FRI NT "m PRO SFIPPGH" 

15 FORK=0TO9: A < K >=PEEK< 3072+K >:NEXTK 
20 PR I NT " SS" ; : OPEN3, 3 
25 FORK=0TO9:GET#3,A*< K>=NEXTK 
30 PR I NT#3, "MRWW«WWl«ia" , 

35 FORK=0TO9:PRINT#3,A < K >; :NEXTK:PRINT#3 
40 FORK=0TO9:PRIMT#3,ASC < A#<K>>; =NEXTK 
45 PRINT#3 : CL0SE3 

47 0PEN4.. 4 : PRINT#4, "PIPPO DIRETTO E INVERSO 

49 PRINT#4,"VALORI LETTI CON PEEK: " 

50 FORK=0TO9 : PR I NT#4, A < K = NEXTK : PR I NT#4 

51 PRINT#4,"VALORI LETTI CON GET: 

55 FORK=0TO9 : F'R I NT#4, ASC < A* < K > > ; : NEXTK : PR I NT#4 

57 PRINT#4, "CARATTERI IN CAMPO INVERSO: •• 

58 FORK=0TO9 : PR I HT#4, CHR* < 18 > A* < K ) ; " " 

59 NEXTK : F'R I NT#4 

39 CMD4: LIST :PRINT#4:CL0SE4: STOP 
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COMMENTO A GETPEEK 


.10: stampa sulla prima riga del video la parola PIP¬ 
PO, prima in modo normale (campo diretto), e poi in 
campo inverso, usando i caratteri di controllo all'in¬ 
terno della stringa di stampa. 

.15: legge dalla memoria video, che inizia in 3072, i 
10 caratteri stampati, usando la funzione PEEK, e li 
memorizza in A(K). 

.20: porta il cursore nella prima posizione del 

video, e apre il video come file. 

.25: legge dal file video con GET# i 10 caratteri 
presenti e li memorizza in A$(K). 

.30: scende con il cursore sul video di 8 righe. 

•35: stampa sul video i codici dei 10 caratteri let¬ 
ti con PEEK; essi sono i D/CODE dei caratteri ed e' 

riconoscibile il codice che determina il campo inver¬ 

so. Troviamo infatti: 16, 9, 16, 16, 15, per PIPPO in 
campo diretto e: 1^4, 137, 144, 144, 143, per PIPPO in 
campo inverso, cioè’ ogni codice e' aumentato di 128. 

.40: stampa sul video i codici dei caratteri letti 

con GET#, usando la funzione ASC. Come puoi vedere 
questi codici sono tutti uguali; essi infatti sono i 
codici ASCII dei caratteri e non si ha differenza tra 
diretto e inverso. 

.45: chiude il file video. 

.47: apre la stampante e stampa il titolo. 

.49/50: stampa i valori letti con PEEK. 

.51/55: stampa i valori letti con GET#. 

.57: stampa il titolo. 

.58/59: stampa i codici ASCII dei caratteri dopo il 
codice 18, ottenendo il campo inverso. 

.99: trasferisce l'uscita video alla stampante, lista 
se stesso e chiude correttamente. 


CHR$(26) 


RIPETIZIONE CARATTERE GRAFICO 


Questo codice di controllo deve essere usato dopo 
essere entrati in modo grafico con il codice 8. Esso 
deve essere seguito da un numero N, che specifica 
quante volte deve essere ripetuta la colonna di punti 
che segue; tale numero può' variare da 0 a 255 e deve 
essere passato con la funzione CHR$(N). Se N-0 il 
carattere viene ripetuto 256 volte. Se vuoi ripetere 
per un numero maggiore di volte devi usare la sequen¬ 
za CHR$(26)CHR$(N) . . . ; piu' volte. Dopo CHR$(N) deve 
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comparire il codice che rappresenta la colonna di pun¬ 
ti da ripetere, passato con la funzione CHR$. 

Il programma COD26-1 esemplifica l'uso del codice 26 
per allargare il nostro omino, già' usato in qualche 
esempio, agendo su ogni colonna di punti che lo compo¬ 
ne . 


1 REM C0D26-1 
5 OPEN19,4 
IO CMD10 

15 DATR0,65,67, 1 02, 61 , 31 , 61 ,102, 67,65,0 
20 FQRK=1T05 
25 F0RI=1T011 
30 REflDA : fi*=CHR* < fi+128 > 

35 PRINTCHR* <3 >CHR* < 26 >CHR* < 2 >fi*; 

40 NEXTI 

45 RESTORE : NEXTK 
50 PRINTPRIHT 
55 FORK=lT05 
60 FOR1=1TOl1 
65 REfiDfi=fi*=CHR*<fi+128> 

70 PRINTCHR* < 8 > CHR* < 26 > CHR* < 3 > fi* ; 

75 NEXTI 

SO RESTORE:NEXTK 
85 PRINT : PRINTCHR*<15> 

90 PRINT#10 :CLQSE10 


RISULTATI COD26-1 


-3K1 3 *: 


COMMENTO A COD26-1 

.5/10: apre la stampante con lfn-10 e trasferisce 
l'uscita video al file logico 10. 

.15: linea DATA che contiene la codifica dell’omino, 
senza l'aggiunta di 128 ad ogni codice. 

.20/45: ripete ciclicamente 5 volte la stampa dell'o¬ 
mino. Legge un codice per volta, aggiunge 128, tras¬ 
forma in stringa in A$, stampa 2 volte ogni colonna di 
punti con la sequenza CHR$(8)CHR$(26)CHR$(2 ) A$ . Il 
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codice 8 poteva essere usato una sola volta fuori dal 
ciclo. RESTORE rende di nuovo attiva la linea DATA. 

.50/75: esegue di nuovo la stampa allargata dell'o¬ 
mino ripetendo 3 volte ogni colonna di punti. 

.85/90: ripristina il modo carattere e chiude corret¬ 
tamente . 

Il codice 26 e' molto utile per stampare istogrammi 
orizzontali. Nel programma C0D26-2 abbiamo realizzato 
un esempio. 


1 REM C0D26-2 
3 SA=7 

5 RESTORE = OPENIO,4,SA 
IO CMD10 : G*=CHR* <. 252> 

15 DATAI8,20,22,38,50,48,55,49,70,39,45,65 
20 PRINTCHR*C14>"ANDAMENTO VENDITE" 

23 PRINT"ANNI 1973,'1984" 

25 PRINT 
30 F0RI=1T012 
35 READB 
40 C=1972+1 

45 PRINTCHR*<15 >CJ" ";CHR*<8 >CHR*C26 > CHR*<B >6* 

50 NEXTI 

51 PRINT : PRINT 

53 IFSA=7THENSA=0 = PRINT#10 = CLOSE10 GOTOS 
55 PRINT#10,CHR*<15 > =CLOSE10 = STOP 



RISULTATI C0D26-2 


-=>.rid-3imerit;.o Mend i ■te- 
i 1 1 9S4 



RHDRMEHTO VENDITE 
HNN I 1 S*T S, :3^ 1 



COMMENTO A C0D26-2 

.3: pone SA-7, per attivare il set minuscolo/maiu¬ 
scolo . 

.5/10: esegue il RESTORE e apre la stampante. Trasfe¬ 
risce l'uscita video alla stampante e definisce il 
carattere grafico G$ , che corrisponde a una colonna di 
punti con spenti i due punti piu' in alto; cosi' le 
barrette dell'istogramma non si toccano. 

.15: linea DATA con 12 numeri che rappresentano 

l’andamento delle vendite in 12 anni. 

.20/25: stampa l'intestazione della ■ tabella. 

.30/51: stampa le 12 linee della tabella. Per ogni 
linea stampa in modo' carattere l'anno e in modo gra¬ 
fico la barretta ripetendo il carattere G$ tante vol¬ 
te quanto e' il valore B. Nota che va a capo in modo 
grafico, e quindi i numeri degli anni risultano un po' 
ravvicinati verticalmente. 
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.53= se SA-7 pone SA-0 e ritorna alla linea 5 dopo 
aver chiuso il file. Cosi' stampa una seconda volta la 
tabella, ma con l'intestazione nell'altro set di 
cara t teri . 

.55: se SA-0 ritorna in modo carattere e chiude 
correttamente. 


CHR$(27 ) SPOSTAMENTO POSIZIONE GRAFICA 


Consente di spostare la posizione di inizio della 
stampa in uno dei 480 punti di una linea, da 0 a 479. 
Esso può' essere usato sia in modo testo che in modo 
grafico. Non può’ pero' essere usato da solo, ad esso 
deve seguire il codice 16, seguito a sua volta dalla 
posizione del punto espressa in due byte, HI e LO, 
passati con la funzione CHR$. Per esempio se vuoi 
stampare a partire dal punto 323 > devi eseguire il 
seguente calcolo: 

X-INT(323/256 ) 

Y-323-X*256 

e usare nell'istruzione PRINT la sequenza: 

CHR$(27)CHR$(16 )CHR$(X)CHR$(Y ) . . . 

Nel programma C0D27-1 stampiamo un gruppo di omini 
sovrapposti iniziando la prima volta nel punto 33, la 
seconda nel punto 22, la terza nel punto 11 e la quar¬ 
ta nel punto 0. I due byte HI e LO che danno la posi¬ 
zioni di inizio devono essere sempre passati, anche se 
il byte HI e' nullo. 


1 REM C0D27-1 
5 OPEN10,4,7CMO10 

10 ORTR0,65, 67,102,61,31,61,102,67,65,0 
15 FISCI = " " • FOR J= 1TO11 = REFIDfi = R=R+128 
20 RS=RS+CHRSCR>:NEXTJ 
25 FORK=0TO4 

30 PRIHTCHRSC8>CHRS< 27 >CHRS C16 >CHRS <0 >; 
35 PRINTCHRSC11* <3+K> > R*; 

40 NEXTK : PRINT 
45 FORK=0TO6 

58 PRIMTCHRS<8>CHRSC27>CHR*C16>CHRS < 0 >; 
55 PRINTCHR*<11*<2+K>>RS.: 
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60 NEXTK•PRINT 
65 FORK=0TO8 

70 PRINTCHR*< 8 > CHR* <27 >CHR* C16 > CHR* < 0 > l 
75 PRINTCHR#<lHtKl+K >><=!*; 

80 NEXTK ; PRINT 
85 FORK=0TO10 
30 PRINTCHR»<8>fi*; 

95 NEXTK PRINT 

100 PRINT PRINTCHR*<.15> 

105 PRINT#10 = CLOSE10 


RISULTATI C0D27-1 



COMMENTO A C0D27-1 

.5: apre 11 file della stampante con lfn-10 e trasfe¬ 
risce l'uscita video ad esso. 

.10: linea DATA che definisce l'omino. 


. 15/20: 

costruzione in 

A$ dell 

' omino 

. 



. 25 / *10 : 

stampa 

ciclica 

di 

5 

orni ni 

a 

partire 

dalle 

colonne : 

33, 44, 

55, 66, 

77. 






.45/60 : 

stampa 

ciclica 

di 

7 

omini 

a 

partire 

dalle 

colonne : 

22, 33. 

44, 55, 

66, 

77 

OO 

CO 




.65/80: 

stampa 

ciclica 

di 

9 

omini 

a 

partire 

dalle 

colonne : 

11, 22, 

33, 44, 

55, 

66 

, 77, 

88, 

99. 


.85/95: 

stampa 

ciclica 

di 

1 1 

omini 

a 

parti re 

dalla 


colonna 0. 

.100/105: ritorno alla stampa in modo carattere e 
chiusura corretta. 

Nella stampa delle prime 3 linee bastava posizionarsi 
al primo punto, dopo essere passati in grafica, fuori 
ciclo e poi proseguire la stampa in ciclo senza ulte¬ 
riori posizionamenti. 

Nel programma C0D27-2 stampiamo 7 tacche nelle posi¬ 
zioni punto 0, 50, 100, 150, 200, 250 e 300. Abbiamo 
stampato una linea di numeri per rendere ricono¬ 
scibili le posizioni delle tacche. 
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I REM C0D27-2 
3 OPEN 10,4 

5 CMO10 

7 FORK=0TO4:FQRI=0TO9 = PRINTCHR*<48+I>; 
9 NEXTI= NEXTK = PRINT 

II FORI=0TO6 
13 0=50*I 

15 B=INT<07256> 

17 C=0—B*256 

19 PRINTCHR* < 8 > CHR* < 27 > CHR* < 16 > 

21 PRINTCHR* <B >CHR* < C> CHR*< 255 >; 

23 NEXTI =PRINT#10,CHR*<15 > =CLOSE10 


RISULTATI C0D27-2 


01234567890123456789012345678901234567890123456789 
I ' 1 I I I I I 


Nota come viene calcolata la posizione punto alle 
linee 13/17. 

Come ultimi esempi dell'uso del codici 27 e 16 ripor¬ 
tiamo i programmi GRAFIC01 e GRAFIC02. 


I REM GRRFICOl 
3 0PEN4,4 : CMD4 

5 0$=CHR$ < 14 :• ^ N*=CHR* < 15 > 

7 P$=CHR$<16>■G*=CHR*<27> 

9 8=23=0=16:0=4 

II 0*="-'‘ • FORI=0TOC+O = 0$=0$+"—" = NEXT 
13 S*=" 

15 PRINTD*" GRRFICO SIN” 

17 PRINTN* 

19 PRINTLEFT$<S*,0-1>+"X"; 

21 PRIHTSPCCC—0—O—1>1"; 

23 PRINTSPC<0—1>"0"; 

25 PRINTSPC< O—IVI" 

27 PRINTO* 

29 FORI=0TO360STEP10 
31 I*=RIGHT$<S*+STR$ <I>,0 > 

33 V0=C*6+0*6*S IN < I *ir/180 > 

35 VH=INT <VO/256> = VL=V0-VH*256 
37 PRINTI*G$P*CHR* < VH>CHR* < VL >"*" 

39 NEXTI= PRINT#4,N* = CL0SE4 = STOP 
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RISULTATO GRAFIC01 


GRRFICO S 
X -1 


0 

10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 


♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


I H 

0 

* 

* 


* 

* 


* 


« 

* 

* 

* 

* 

* 


* 

* 

* 

* 

* 

* 


COMMENTO A GRAFIC01 

.3: apre la stampante e trasferisce ad essa 
video. 

.5/7: definisce come stringhe i caratteri di 
lo 14, 15, 16 e 27. 


l'uscita 

control- 
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.9: iniziallzza alcune costanti. 

.11/13: prepara le stringhe Al e S$. 

.15: stampa l'intestazione in caratteri allargati. 

.17/25: stampa X, -1, 0, 1 usando la funzione SPC per 
posizionarsi . 

.27: stampa le lineette. 

.29/39: ciclo di stampa della funzione SIN tra 0 e 
360, calcolando le coordinate dei punti e stampandoli 
con 11 carattere asterisco in modo testo. Il posizio¬ 
namento avviene con CHR$(27)CHR$(16 ) seguiti dalla 
posizione punto calcolata alle linee 33/35. 

Questo grafico e' ottenuto lavorando in modo testo. 

Il programma GRAFIC02, invece, lavora in modo grafi¬ 
co, stampando un piccolo rombo definito in F$ con 3 
colonne di punti. Come puoi vedere dai risultati il 
grafico risulta molto piu' compatto. 


I REM GRAFICD2 
3 0PEM4,4CMD4 

5 D$=CHR$C14 >:N$=CHR$ <15 > =GR*=CHR*<8 > 

7 P*=CHR*<: 16/ : G»=CHR*<27> = NO*=CHR* < 15/ 

9 C=23 = R=16 = 0=4 = F*=CHR*<136/+CHR*<148/+CHR#<136/ 

II A*="-"FORI=0TDC-»-A:fi$=A$+"-" HEXT 
13 S*=" 

15 PRIHTD*" GRAFICO SIN" 

17 PRIMTN* 

19 PRINTLEFT* < S*,O-1/ + "X"; 

21 PRINTSPC<C-fì-O-1>"-1"; 

23 PRINTSPCCR-1 / "0" 

25 PRINTSPCCA-lV'l" 

27 PRINTR# 

29 FORI=0TO360STEP10 

31 I$=RIGHT* <S$+STR$CI/, 0 / 

33 V0=C#6+R*6*SIH< I*ir/180> 

35 VH=INT <VO/256/=VL=V0-VH*256 

37 PRIHTHOiI$GR$G$P$CHR*CVH / CHR*< VL/F* 

39 NEXTI : PRINT#4.. N* = CL0SE4 : STOP 
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RISULTATI GRAFIC02 


GRRFICO SIN 

X -1 0 1 



•> 

❖ 


•> 


CHR$(145) 


PASSAGGIO SET MAIUSCOLO/GRAFICO 


Questo codice fa passare al set maluscolo/grafico in 
modo temporaneo, cioè' con validità' limitata, fino al 
primo carattere RETURN. Rimane preponderante la 
definizione del set di caratteri operata con il valo¬ 
re di "sa" al momento della OPEN. 

Seguono 5 programmi esempio, nei quali si usa il codi¬ 
ce 145 e il codice 17 in diverse combinazioni con il 
valore di SA. Ogni programma e* preceduto dai suoi 
risultati, dato che termina listando se stesso. 
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Commodore 

COMMODORE 


1 rem codi7/145-1 

2 operilo.* 4, 7 

3 cmd1O 

4 Printchr*<17>"Commodore" 

5 Pr irtfcchr#< 145> "Commodore" 

6 P r i ritchr $ < 17 > = p r i nt 

7 1 ist = Print#10 ; dose 10 


Commodore 

COMMODORE 

1 rem codi7/145-2 

2 openl0,4,7 

3 cmd1O 

4 Printchr$<17>"Commodore" 

5 Pri ritchr$ < 145 > " Commodore " 

6 1ist : Print#10 ; closelO 


Commodore 

COMMODORE 


1 REM CODI7/145-3 

2 OPEN10,4 

3 CMD 10 

4 PRINTCHR*<17>"COMMODORE" 

5 PRINTCHR*<145 >"COMMODORE" 

6 PRINTCHR*<17> = PRINT 

7 LIST : F'R I NT# 10 : CLOSE10 


Commodore 

COMMODORE 

1 REM CODI7/145-4 

2 OPEN10,4 

3 CMD10 

4 PRINTCHRT<17 >"COMMODORE" 

5 PRINTCHRT<145>"COMMODORE" 

6 LISTiPRINT#10 : CLOSE10 
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RBCDEFGHIabcdef9hi 
fi s.BbCcDdEeFf G9Hh 
*R I B~C~O"E—FI G IH 

1 REM CODI7/145-5 

2 S1 % =CHR$<145> «S2*=CHR*<17> 

3 OPEH10.4CMD10 

4 FRIHTS1 %" RBCDEFGHI"; 

5 F'R INTS2*"RBCDEFGH I " 

6 FORK=0TO7 

7 PRINTS1$CHR*< 65+K > S2*CHR* < 65+K >; 

S NEXTK : FRINT 

9 F0RK=0TO7 

10 FRINTS1*CHR$<97+K>S2*CHR*<97+K> ; 

11 NEXTK=FRINT 

12 LIST FRINT#10 CLOSE10 


2.4 GESTIONE DEL BUFFER DI STAMPA 

Il buffer della MPS-803 può' contenere 90 caratteri; 
si ha la stampa automatica quando 11 buffer e' pieno. 
La stampa può' aver luogo producendo lo svuotamento 
totale o parziale del buffer. Nel buffer vengono 
memorizzati tutti 1 caratteri che il calcolatore 
invia, quelli stampabili, i caratteri separatori, le 
funzioni di stampa, i caratteri di controllo. 

Quando usi un programma che manda dati alla stampan¬ 
te, non sempre vedrai uscire dati in corrispondenza 
all'esecuzione di istruzioni PRINT; se non operi bene 
puoi chiudere il file di stampa con CLOSE senza aver 
svuotato completamente il buffer (questo non succede 
se prima della CLOSE usi un'istruzione PRINT senza 
lista dati). 

Riassumiamo le condizioni nelle quali avviene la stam¬ 
pa : 

.1) 11 buffer e' pieno, cioè' contiene 90 caratteri, 
ma i caratteri di testo stampabili sono meno di 80, o 
tra caratteri di testo e caratteri grafici sono 
presenti meno di 480 punti. Il buffer viene svuotato 
completamente producendo una linea di stampa senza 
andare a capo (infatti non e' stato incontrato un 
carattere di codice 10 o 13 che manda a capo). 

.2) Il buffer contiene meno di 90 caratteri, ma rice¬ 
ve un carattere di "vai a capo"; si ha la stampa di 
tutti i caratteri con svuotamento completo del buffer 
e si va a capo. 
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.3) H buffer non e' pieno, ma contiene tra carat¬ 
teri di testo e grafici piu' di il 8 0 punti stampabili; 
si ha la stampa di una linea con vai a capo, e il buf¬ 
fer viene svuotato del caratteri stampati. 

Il programma ST-AUTOM esemplifica quanto detto. 


I REM ST-flUTOM 

£ M0T="STAMPA 80 CARATTERI , CHRT<13> FINALE" 

3 M1T="STAMPA 90 CARATTERI, CHRT<13> FINALE" 

4 M2T="STAMPA 90 CARATTERI, CON ; FINALE" 

5 M3T="STAMPA 8 VOLTE CHR*<10>; E POI 70" 

6 M3T=M3*+" CARATTERI, CON CHRTC13>; FINALE" 

7 LFT=CHRT <: 10 > ■■ CRT=CHRT < 13 > 

8 AT="0123456789":E*="" 

9 A1T="ABCOEFGHIJKLMNOPQRSTUVUXYZ"=B1T="" 

10 F0RK=1T08 ^ BT=BT+AT = NEXTK 

II FORK=1TQ4:B1T=B1T+A1* :NEXTK 

12 M4T="STAMPA 12 VOLTE CHRT<13>; POI 26 " 

13 M5T=LEFTT<M4T,26> 

14 ri4T=M4T+" CARATTERI CON CHRT<13> FINALE" 

15 M5T=M5T+"PGI LE IO CIFRE CON ; FINALE" 

161 0PEN4,4 

103 PRINT84,M0T 
105 PRINT#4,BT=GOSUB200 
107 PRINT#4..MIT 
109 PRINT#4,BT; A#:GOSUB200 

III PRINT#4,M2T 

113 PRINT#4,BT;AT; =GOSUB200 
115 PRINT#4,M3T 

117 PR I NT#4, LFT ; LFT ; LFT ; LFT ; LFT ; LFT ; LFT ; 

119 PRINT#4,LFT; LEFTTCBT, 70> CRTJ 
121 PRINT#4,M4T 

123 PR I NT#4, CRT ; CRT ; CRT ; CRT ; CRTCRT ; CRT ; 

125 PRINT#4,CRT; CRT ; CRT; CRT ; CRT; A1T:GOSUB200 
127 PRINT#4,M3T 

129 PRINT#4, LFT-; LFT ; LFTLFT ; LFT ; LFT ; LFT 
131 PRIHT#4,LFT;LEFTT< B1T,70 >; CRT; 

133 PRINT#4,M5T 

135 PRINT#4,"LE 10 CIFRE RESTANO NEL BUFFER" 
137 PRINT#4,CRT; CRT; CRT; CRT; CRT; CRT ; CRT; 

139 PR I NT#4, CRT ; CRT ; CRT ; CRT ; CRTAT ; < GOSUB200 

141 CL0SE4 1 STOP 

200 FORI = 1TO1000^NEXTI : RETURN 


Non riportiamo i risultati del programma, che potrai 
ottenere tu eseguendolo. Esso prepara diverse strin¬ 
ghe di diversa lunghezza e le stampa; dopo ogni stam¬ 
pa viene chiamata una routine che provoca un ciclo di 
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attesa e che ti permette di vedere cosa e' stato stam¬ 
pato fino a quel momento. Ricorda che se la lista di 
stampa termina senza punteggiatura il sistema aggiun¬ 
ge un CHR$(13) e quindi si ha la stampa con a capo. Se 
la lista di stampa termina con non viene aggiunto 
alcun carattere, mentre se essa termina con "si ha 
l'aggiunta di 10 spazi. 

Nel programma ST-AUTOM, dato che l'ultima lista di 
stampa termina con (linea 139) e alla linea 141 si 
ha la CLOSE del file, gli ultimi caratteri restano nel 
buffer e non sono stampati. Prova alla fine del 
programma ad eseguire in immediato: 

OPEN4,4:PRINT#4:CLOSE4 
e li vedrai uscire. 


2.5 COME SI COMPONE UNO STAMPATO 

Nella preparazione degli stampati si presentano due 
problemi: gli allineamenti orizzontali e le spazia¬ 
ture verticali. Per quanto riguarda il primo problema 
abbiamo già' visto in alcuni esempi che si può' agire 
sulla posizione di stampa con: 

•le funzioni TAB e SPC, 

.la punteggiatura "," e ";" , 

.i codici di controllo 16 e 27 seguiti da opportuni 
parametri, 

.le funzioni LEN, LEFT$, MID$ e RIGHT$, che consen¬ 
tono di preparare dati stringa tutti della stessa 
lunghezza. 

In generale si allineano i numeri a destra o al punto 
decimale, e le parole a sinistra. 

Per quanto riguarda il problema delle spaziature 
verticali, dato che la nostra stampante non contiene 
un contarighe automatico (con relativi codici di 
controllo per usufruirne), dobbiamo creare noi una 
routine che conti le righe di avanzamento della carta 
e ci consenta di intervenire per andare a nuovo foglio 
o per posizionarci a una determinata riga. 

E' necessario conoscere il numero di righe del modulo 
che si usa e stabilire di quante righe deve essere il 
margine non stampato. 

Il sottoprogramma CONTARIGHE ci consente di stampare 
su un foglio lungo 66 righe, con un margine di 6 
righe. Se scriviamo GOSUB7000 otteniamo di contare una 
riga di stampa, andando a nuovo foglio se ne sono già' 
state scritte 60. Se scriviamo G0SUB704O otteniamo di 
andare a nuovo foglio comunque. 
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7000 REM CONTASIOHE 

7005 IFCRO0THEN7020 

7010 NR=66 : REM LUNGHEZZA FOGLIO 

7015 RM=6 : REM RIGHE DI MARGINE 

7020 IFCR=NR-RMTHEN7030 ; REM CAMBIO FOGLIO 

7025 CR=CR+1 ! RETURN •' REM +1 IN CONTA RIGHE 

7030 FORR=1TORM ; PRINT#4 : NEXTR ; REM CAMBIA FOGLIO 

7035 CR=1 ; RETURN REM RICOMINCIA FOGLIO 

7040 REM ENTRATA PER CAMBIARE FOGLIO 

7045 FORR=CRh- 1TOMR+NR = PRINT#4 : NEXTR = GOTO7035 


Quando al chiama la prima volta 11 sottoprogramma con 
G0SUB7000 deve essere CR-O, e allora viene inizia- 
lizzato NR-66 e RM»6 (puoi cambiare queste costanti 
secondo le tue esigenze). Quando, invece CROO, la 
routine va a nuovo foglio se necessario e incrementa 
il contatore di riga. L'entrata 70*t0 fa andare a nuo¬ 
vo foglio indipendentemente dal numero di righe già' 
stampate. 

Seguono alcuni esempi relativi agli allineamenti 
orizzontali; essi stampano i risultati e poi listano 
se stessi (puoi evitare la li3ta cancellando LIST). 

Il programma INC1 esemplifica l'uso della funzione 
TAB, dopo aver trasferito la stampa dal video alla 
stampante con CMD. 


0123456789012345678901234567890123456789 
POSO POS 10 POS30 

NUOVA RIGA 


I REM INC1 

3 0PEN4,4 ;CMD4 
5 A$="0123456789“:B$="" 

7 FORK=lT04>B$=B$+A$;NEXTK 
9 PRINTB* 

II PRINTTAB<0>"POSO";TAB<6>"POS10"; 
13 PRINTTABO5VP0S30" 

15 PRINTTABC80 :> i "NUOVA RIGA" 

17 PRINT : LIST 
19 F'RINT#4 : CL0SE4 : STOP 


Il programma INC2 esemplifica l'uso della funzione 
SPC, dopo aver trasferito la stampa dal video alla 
stampante con CMD. 
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0123456789012345678901234567890123456789 
DIECI CRR. DIECI CRR. 

DIECI CRR. DIECI CRR. 


I REM INC2 

3 QPEH4 > 4 : CMD4 
5 fl.T="0123456789" B$="" 

7 FORK= 1T04 : B$=B$+R$ = NEXTK 
9 PRINTER 

II Ci="DIECI CRR." 

13 PRI NT Ci ; SPC C 10 > :■ Ci 
15 PRINTCÌTRB<10>CÌ 
17 PRINT; LIST 
19 PRINT#4 :CL0SE4: STOP 


Puoi modificare INC1 e INC2 per stampare con PRINT#, 
invece che con CMD; ottieni gli stessi risultati. 

Il programma INC5 esemplifica l'uso della punteg¬ 
giatura finale nella lista di stampa. Esso stampa con 
CMD. 


0123456789012345678901234567890123456789 
RBC DEF 

PRIMR F'RROLR SECONDR PfìROLR 

RBCDEF 

PRIMR PRROLRSECONDR PfiROLfl 


I REM IHC5 

3 0PEN4 .• 4 : CMD4 
5 fli="0123456789" ; Bi="" 

7 FORK=1T04 = Bt=Bi+Ri:NEXTK 
9 PRINTBi 

II PRINT"RBC" > "DEF" 

13 PRINT"PRIMR PRROLR","SECONDR PflROLR" 
15 PRINT"RBC";"DEF" 

17 PRINT"PRIMR PRROLR";"SECONDR PRROLR" 
19 PRINT : LIST 
21 PRINT#4‘CL0SE4:ST0P 


Puoi modificare INC5, stampando con PRINT#, invece che 
con CMD e ottenendo gli stessi risultati. 

Il programma INC7 mostra come incolonnare i numeri 
riducendoli tutti della stessa lunghezza, dopo averli 
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trasformati in stringa, con l'aggiunta di spazi a 
sinistra, usando la funzione RIGHT$. 


01234567S9Q12345678901234567890123456789 
1234 13567 45 890 

5432 9876 3456 12345 

TRBELLR NUMERI IH COLONHR 

0123456789012345678901234567890i23456789 
1234 13567 45 890 

5432 9876 3456 12345 


1 REM INC7 

5 DIMH ■: 7 . C$ < 7 : SP$= " " 

10 0PEN4 .• 4 ; CMD4 

15 fì*="0123456789"=B*="" 

20 FORK=1T04:B$=B$+fi$:HEXTK 
25 PRINTER 

30 DRTR1234,13567,45,890 
35 DRTR5432,9876,3456,12345 
40 FORK=0TO7=RERDC<K> 

45 CSC K> =STR* < C <K> >=HEXTK 

50 FOR J=0T01^ FORK=0TO3:PRINTC<K+J*4>;" 

55 HEXTK^PRIHT=HEXTJ 

60 T$="TRBELLR NUMERI IH COLONNR" 

65 PRI NT = PRIHTT* = F'R I NT 
70 PRIHTB* 

75 FORJ=0TO1:FORK=0TO3 

80 PRIHTRIGHT t <SP4+C4<K+J*4>,10>, 

85 HEXTK = PRIHT = HEXTJ 

90 PRINT#4 ^ CMD4 ; LIST ; PRINT#4 = CL0SE4 = STOP 


Il programma INC8 mostra come incolonnare i 
ricorrendo, dopo la trasformazione in stringa 
funzioni SPC e LEN. 


0123456789012345678901234567890123456789 
1234 8976 3456 13567 

45 890 5432 9876 

TRBELLR NUMERI IH COLONHR 

0123456789012345678901234567890123456789 
1234 8976 3456 13567 

45 890 5432 9876 


numeri 
, alle 
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1 REM INC8 

5 DIMC C 7 > , Ct < 7 ;• : SP*= " 

1Q 0PEN4,4 = CMD4 
15 fi$="0123456789" =B*= ,,M 
20 FORK= 1T04 : B$=B$+A* = NEXTK 
25 PRINTB* 

30 ORTO1234,8976,3456,13567,45,890,5432,9876 
35 FORK=0TO7: PERDO<K>: Ct CK>=STR* <C< K>>>NEXTK 
40 FOR J=0TO1 : FORK=0TO3 = PRINTC<K+J*4> " " : 

45 NEXTK : PR. I NT NEXTJ 

50 T$="TABELLA NUMERI IN COLONNA" 

55 PRINT:PRINTT*:PRINT:PRINTBT 
60 FORJ=0TO1 FORK=0TO3 

65 PR INTSPC 10-LEN<C*< K+J#4 > > > Ct < K+J*4 > ; 

70 NEXTK ^PRINT:NEXTJ 

75 PRINT#4 = CMD4: LIST : PRINT#4 = CL0SE4 = STOP 


Il programma INC9 mostra come allineare parole ricor¬ 
rendo alle funzioni SPC e LEN. 


BELLO BENISSIMO ALLEGRO PIACEVOLE 
RILASSANTE SOLEGGIATO GRADEVOLE UTILE 
DEFINITIVO ARIOSO STUPENDO MAGNIFICO 


BELLO 

RILASSANTE 

DEFINITIVO 


BENISSIMO 

SOLEGGIATO 

ARIOSO 


ALLEGRO 

GRADEVOLE 

STUPENDO 


PIACEVOLE 

UTILE 

MAGNIFICO 


1 REM IHC9 
5 DIMC* <11> 
lw 0PEN4,4 : CMD4 

15 DATABELLO,BENISSIMO,ALLEGRO 

20 DATAPIAGEVOLE,RILASSANTE,SOLEGGIATO 

25 DATAGRADEVOLE,UT ILE,DEFINITIVO 

30 DATAARIOSO,STUPENDO,MAGNIFICO 

35 FORK=0TO11 READCT (K - NEXTK 

40 FORJ=0TO2=FORK=0TO3:PRINTC*<K+J#4>;" " 

45 NEXTK:PRINT :NEXT J 

50 N=0:FORK=0TO11 

55 IFLEN < Ct C .K > > >NTHEHN=LEN< C# C K > > 

60 NEXTK = PRINT = PRINT 

65 N=N+3 = FORJ=0TO2:FORK=0TO3 

70 PRINTC*<K+J*4> ; SPC < N—LEN < Ct <. K+J#4 > > > ; 

75 NEXTK : PRINT ; NEXTJ 

80 PRINT#4^ CMD4 LIST :PRINT#4 :CL0SE4•STOP 
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2.6 COPIA DEL VIDEO TESTO SU CARTA 

In generale con il termine "copia del video su carta" 
(hardcopy) ai intende uno stampato che corrisponda al 
contenuto del video. Tale stampato può', nel nostro 
caso : 

•Contenere gli stessi caratteri che compaiono sul 
video, grafici o di testo, ma non essere identico al 
video. Infatti sul video i caratteri sono rappre¬ 
sentati in una matrice 8x8, mentre sulla carta sono 
rappresentati in una matrice 6x7. 

•Contenere una immagine identica ottenuta ripro¬ 
ducendo esattamente i punti del video (con dimensioni 
diverse naturalmente). 

Noi in questo paragrafo ci occupiamo della copia del 
video su carta, quando il video e' in modo testo; nel 
prossimo paragrafo trattiamo invece l'argomento del 
video grafico. 

In modo testo la mappa del video occupa 1000 byte; 
l'indirizzo del primo byte si può' ottenere moltipli¬ 
cando per 256 il contenuto del byte 13*12. Al momento 
dell'accensione la mappa video inizia al byte 3072 (da 
3072 a 4071) e la mappa degli attributi dei caratteri 
(colore, luminosità', flash) va da 2048 a 3047. Nella 
mappa video sono contenuti i D/CODE (vedi Paragrafo 
4.8) dei caratteri, che sono diversi per i caratteri 
in campo diretto e in campo inverso. 

Abbiamo preparato il sottoprogramma HARD1 , che legge 
con la funzione PEEK i codici D/CODE dei caratteri 
presenti sul video, li trasforma in codici ASCII, se i 
D/CODE sono maggiori di 128 (campo inverso) predi¬ 
spone il carattere di controllo per attivare sulla 
stampante il campo inverso, e li stampa, riproducendo 
i caratteri del video con i caratteri della stampan¬ 
te. HARD 1 può' quindi servire per copiare su carta un 
video in modo testo, rispettando il campo diretto e il 
campo inverso. 

Nel programma C0PIAVIDE01 abbiamo usato HARD1 per 
ricopiare il video due volte, prima con il set 
maiuscolo/grafico e poi con il set minuscolo/maiu¬ 
scolo. Prima di far girare il programma, lo abbiamo 
listato con LIST sul video. Dato che il programma non 
e' molto lungo, esso entra tutto in un quadro video. 
Come puoi vedere dal risultato ogni linea e' di 40 
caratteri; avresti ottenuto un risultato diverso 
trasferendo la lista alla stampante con CMD. 
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1 REM COP IRVI DECI 1 

2 REM COPIA SET MRIUSCOLO/GRAFICO 

3 HI*=CHR$ <145 > ^ GOSUB10000 

4 H1$=CHR$ <17>:GOSUB10000 = STOP 

10000 REM HRRD1 

10001 0PEN4,4 :PRINT#4 

10002 H1=256*PEEK<1342 >-40 

10003 FORH0=0TO24:H0$=H1$ = H1=H1+40 

10004 F0RH2=H 1 TOH 1 +39 : H3=PEEK < H2 > 

10005 I FH3I> 128THEMH3=H3-128 : H4= 1 = H0*=H0* 
+CHRt<18> 

10006 IF < H3>0>*< H3C32> THENH3=H3+64 = GOTO1 
0010 

1000? IF <H3>31> * <H3C64 >THEN10010 

10008 IF < H3>63 > * < H3C96 > THENH3=H3+128 : GOT 
010010 

10009 IF < H3>95 >* <H3<128 >THENH3=H3+64:GOT 
010010 

10010 H0$=H0$+CHR*<H3:' 

10011 IFH4=1THENH0$=H0$+CHR$<146;' = H4=0 

10012 NEXTH2 : PRINT#4 .• H0* : NEXTH0 

10013 PRIHT#4^CL0SE4: RETURN 

RUM 


1 rem coP i i deo 1 

2 rem coPi s. set ma.iuscolo/3r af ico 

3 hi *=chr*< 145!.' 1 : 3osubl0O00 

4 hl$=chr$<17 > : Sosub10000 : stop 

10000 rem hs.rd 1 

10001 oPen4<4=Print#4 

10002 h1=256*P eeK <1342 >-40 

10003 torh0=0to24=h©*=h1# h1=h1+40 

10004 forh2=hltoh1+39 : h3=PeeK<h2> 

10005 if h3>128thenh3=h3—128 = h4=1=h0*=h0* 
+chr*< 18;- 

10006 if< h3>0 >♦< h3<32 > thenh3=h3+64 = Sotol 
0010 

10007 if < h3>31>* < h3<64>then10010 

10008 iT < h3>63>* <h3 <96> thenh3=h3+128 = 3ot 
o10010 

10009 if <h3>95> '* <h3< 128>thenh3=h3+64 : 3ot 

O10010 

10010 h0*=h0»+chr*<h3> 

10011 if h4=1thenh0*=h0*+chr* <146 > =h4=0 

10012 nexth2 ; Pr int#4> h0$ • nexth© 

10013 Print.#4 : c1ose4 : return 

run 
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COMMENTO A COPIAVIDEO1 


.3: pone H1$-CHR$(145) per attivale il set maiusco¬ 
lo/grafico e chiama il sottoprogramma HARD1. 

.4: pone H1$-CHR$(17) per attivare il set 
mlnu3COlo/maiuscolo e chiama il sottoprograrama HARD1; 
poi 3i ferma. 


COMMENTO A HARD 1 

.10001: apre la stampante. 

.10002: prepara in HI l'indirizzo di inizio della 
mappa video - 40 . 

. 10003 : inizia un ciclo per HO da o a 24 per leggere 
le 25 linee del video. Pone H0$-H1$ e incrementa HI di 
40, per puntare a inizio riga; alia fine della let¬ 
tura di ogni riga torna ad eseguire queste due ultime 
oper azioni. 

.10004: inizia il ciclo per leggere i 40 caratteri di 
una riga. Legge il D/CODE di un carattere con la 
funzione PEEK. 

.10005: se il D/CODE supera 128, aggiunge alla strin¬ 
ga H0$ il codice 18 per ottenere RVS-0N sulla stam¬ 
pante e pone H4-1 . 

.10006/10009: trasforma il D/CODE in codice ASCII. 

.10010: aggiunge alla stringa Ho$ il nuovo carat¬ 
tere . 

.10011: se H 4= 1 aggiunge alla stringa H0$ il codice 
146 per tornare a RVS-0FF e pone H4-0. 

.10012: torna alla lettura di un nuovo carattere fi¬ 
no alla conclusione del ciclo di carattere nella riga. 
Poi stampa la stringa H0$ sulla stampante e passa al¬ 
la prossima riga video fino alla conclusione del ciclo 
di riga. 

.10013: chiude la stampante e ritorna al programma 
principale. 

Il programma C0PIAVIDE02 stampa sul video 3 stringhe 
in campo diretto e 3 in campo inverso, nel set 
maiuscolo/grafico, poi chiama HARD 1 per ricopiarle 
sulla carta. Dopo cambia il set di caratteri, stampa 
le stesse stringhe e chiama HARD1 per eseguire la 
copia del video. 
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1 REM C0PIRVIDE02 

2 PRINT"^ PRINT”flBCDEFGHIJKLMNOPQRSTUVWXVZ" 

3 PRIHT" H-*-r—~— r-i «I I I I n 1 - 1 Il" 

4 PR I NT "•D“-l I I LH-1 **--l I L-44-X I /\" 

5 PRINT" 5WBCDEFGHX JKLMNOPQRSTUVWXVZB" 

6 F'R I NT "SH - J -r—** n ■ Il I I n u “%IB“ 

7 PR I NT " 3»0 _ -l I I U+ I *•--! I ’ J L—44 1- XI , 

10 HI*=CHR*C 145) = GOSUB10000 

11 HI % =CHR$ < 17;'; GOSUB10000 = STOP 

10000 REM HfiRDl 

10001 0PEN4,4'PRINT#4 

10002 H1 =256*PEEK < 1342 > -40 

10003 FQRH0=0TO24'HOT =H1# ; Hl=Hl+40 

10004 FORH2=HlTOH1+39'H3=PEEK<H2> 

10005 X FH3> 128THENH3=H3-128 H4= 1 = H0*=H0$+CHR *< 18 > 

10006 IF < H3>0 > * < H3<32 > THENH3=H3+64 = GOTO10010 

10007 IF < H3>31 > * C H3C64 > THEN10010 

10008 IF <H3>63>*<H3C96>THENH3=H3+128 = GOTO10010 

10009 IF <H3>95>* CH3<128>THENH3=H3+64 = GOTO10010 

10010 H0$=H0*+CHR*<H3> 

10011 IFH4=1THENH0$=H0#+CHR$<146 >=H4=0 

10012 NEXTH2^ PRINT«4,HOT :HEXTHO 

10013 PRINT#4'CLOSE4=RETURN 


RISULTATI C0PIAVIDE02 


HBCDEFGHIJKLMNOPQRSTUVWXVZ 
h^-t —m i i ■ i 111 n m 

•O -I I I U-H**--l I •-'L-*4—x l ,'N 

siawi^aB snua B BigMaw samaBiaw 

< = cr-mma- ■K:*SW-|■ ■ ■ ■ - ■— ■ 
"RfeSHRlHiB:aCXKSHIB<KrXBBI>GBI 


abcdef 9h i .jK1 rnnoP At'stuvuxyz 

H-*-i-- *** r-i m I I I I m 1 - J “ V I I 

QWERTVUIOFV+IfiSDFGHJKL—ZXCVBNM 

^ :t =t= rag ? ) ima » -jj i 

:>!i!i4^&vij(M3Bar^«aM:iua«MSM!yasifii 


li programma C0PIAVIDE03 usa il sottoprogramma HARD2 
per copiare il video. In HARD2 la copia del video vie¬ 
ne fatta aprendo il video come file, leggendo con GET# 
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i caratteri, riga per riga, e stampandoii. Dato che i 
caratteri sono letti in codice ASCII, il programma non 
rispetta il campo inverso, salvo che per i caratteri 
contenuti tra virgolette. 


1 REM C0PIRVIDE03 

2 SR=0=GOSUB100O0 

3 SR=7:GOSUB10000 

4 STOP 

1O000 REM HRRD2 
10005 FRIMT"Si‘ l i 
10007 0PEN3,3 :0PEN4,4,SR 
10010 FORK=0T024 :R$="" 
10015 FORJ=0TQ39 
10020 GET#3,B$ ^ R$=R#+B$ 
10025 NEXTJ 
10030 PRINT#4,fl* 

10035 NEXTK : FRIUT 
10040 CL0SE3^ CL0SE4 
10045 RETURN 

RUN 


1 rem coP ia.video3 

2 SS.=0 ^ SOSUb 1 0000 

3 s=>.=7 3osub 10000 

4 stop 

10000 rem hs.rd2 
10005 Print"a“; 

10007 oP en3.. 3 ; oP er>4,4.. sa 
1 00 10 f orK.=0to24 : ■».$= " " 
10015 f or .j=0to39 
10020 3et#3.. b# • ■■>.*■=*.$ +b* 
10025 next.) 

10030 P r i nt#4, .=■.* 

100 35 nextK ; P r i rìt 
10040 c1ose3 : c1ose4 
10045 return 


run 


Prima di far girare il programma lo abbiamo listato 
sul video. Esso viene stampato nei due set di carat¬ 
teri . 


Affrontiamo ora il problema di ottenere su carta una 
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copia identica del video. 11 problema e' abbastanza 
complesso infatti noi disponiamo dei codici dei carat¬ 
teri, in D/CODE se li leggiamo con la funzione PEEK. 
Dato che nel COMMODORE 16 la mappa dei caratteri in 
ROM descrive solo i caratteri in campo diretto, D/CODE 
da 0 a 127 , per i due set, dobbiamo analizzare il 
codice, e, se maggiore di 128, andare a prendere la 
descrizione del codice corrispondente al campo diret¬ 
to e scambiare i bit 0 con bit 1 e viceversa. Le due 
mappe di descrizioni dei due set di caratteri occu¬ 
pano ciascuna 1024 byte (128*8-1024) e si trovano in 
ROM da 53248 (D000H) a 54271, e da 54272 (D400H) a 
55296. Per poter ricostruire i caratteri per punti 
sulla stampante occorrono le descrizioni dei carat¬ 
teri, che pero’ non sono accessibili da BASIC in ROM. 
In conseguenza i programmi BASIC che vogliono acce¬ 
dere alla descrizione dei caratteri, senza usare rou¬ 
tine in linguaggio macchina, devono essere lanciati 
dopo : 

.aver abbassato il top della memoria del BASIC per 
lasciare liberi sopra almeno 2K di memoria RAM, 

.aver trasferito con l'istruzione MONITOR i 2K della 
ROM caratteri in RAM. L'istruzione MONITOR può' acce¬ 
dere alla ROM senza problemi. 

Abbiamo preparato il sottoprogramma HARD3, che lavora 
cosi ' : 

.Preleva i D/CODE dal video con la funzione PEEK e li 
memorizza in una matrice X(M,I), dove M rappresenta il 
numero delle righe video da ricopiare e I il numero 
dei caratteri per riga. 

.Usa una matrice D a due indici, che abbia un numero 
di righe multiplo di 7, infatti per i caratteri gra¬ 
fici della stampante si devono usare 7 punti incolon¬ 
nati, e che sia sufficiente a contenere le descri¬ 
zioni dei caratteri di ogni riga video, ognuno for¬ 
mato da 8 linee. In tale matrice, che ha 40 colonne, 
vengono memorizzate le descrizioni di ogni carattere, 
occupando 8 righe. Le ultime righe della matrice 
rimangono eventualmente vuote, dato che si adatta una 
struttura multipla di 8 in una multipla di 7 . 

.Preleva dalla matrice D i byte a gruppi di 7 (sulla 
stessa colonna), calcola i codici degli 8 caratteri 
grafici a cui essi danno luogo (un carattere per ogni 
colonna di bit) e li memorizza in Z(7), poi li 
trasforma in stringa e li stampa. La prima riga stam¬ 
pata corrisponde quasi a una riga del video, infatti 
ha lavorato su 7 linee di punti invece che su 8 , ma 
alla fine l'immagine e' formata dallo stesso numero di 
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punti del video. Noterai una certa differenza con i 
caratteri stampati di solito dalla stampante. 

Noi abbiamo richiamato il sottoprogramma HARD3 dal 
programma C0PIAVIDEO4. Abbiamo dovuto limitare il 
numero di righe video da ricopiare, infatti le matri¬ 
ci occupano molto spazio e per poter avere in RAM la 
descrizione dei caratteri abbiamo dovuto abbassare il 
top della memoria. Ci siamo limitati a scrivere sul 
video i caratteri di D/CODE compreso tra 32 e 127, che 
sono 96 e quindi occupano circa 3 righe video. Abbia¬ 
mo dimensionato in conseguenza le matrici X e D; 
X(2,39) per avere tre righe e 40 colonne, e D(27,39) 
per avere 28 righe e 40 colonne, infatti per 3 righe 
di caratteri ci vogliono 3x8-24 linee di punti e il 
multiplo di 7 piu' vicino a 24 e' 28. 


1 REM C0PI0VIDE04 
3 0IMXC2,39} ,D<27,39} ,Z<7> 

50 H2$=CHR*c:i42}+CHR*< 146} 

55 GOSUB100 :D=0^ GOSUB10000 
57 H2$=CHR*< 142>+CHR$c: 18} 

59 GOSUB100-0=0^ GOSUB10000 
70 H2*=CHR*C14}+CHR*<146} 

75 GOSUB100:0=1:GOSUB10000 
77 H2$=CHR$ <14}+CHR*<18 > 

79 GOSUB100:0=1:GOSUB10000 
81 PRI NTCHRT- < 146 } CHR$ < 142 > : STOP 
100 PR I NT " rr* ; H2$ i 

105 F0RK=32T0127 :PRIHTCHRT<K}; :NEXTK 
115 PRINT=RETURN 
10000 REM HRR03 
10005 0PEN4 .• 4 

10010 HI=256*PEEK<1342}-40 
1@015 FQRH0=0TO2:H1=H1+40 

10020 J=0=FORH2=H1TOH1+39 

10021 X<H0,J}=PEEKCH2} 

10060 J=J+1 :NEXTH2:NEXTH0 

10063 GOSUB20000 

10064 GOSUB20020 

10065 PRINT#4 :CLOSE4: RETURN 
20000 REM PRELEVO DESCRIZIONI 
20005 0=14080+0*1024 

20007 FORM=0TO2:FORI=0TO39:V=X<M,I} 

20008 SW=0: IFV>127THENSW=1 :V=V-128 

20009 FORK=0TO7 : O<M*8+K.I>=PEEK<0+V*8+K} 

20011 IFSW=1THENO <M*8+K,I}=218-1-D C M*8+K,I} 
20015 NEXTK:NEXTI :NEXTM: RETURN 

20020 PRINT#4,CHR*<3}J 
20035 FORN=0T027STEP7 



£0038 FORI=0TQ39 

20039 FORL=0TO7 Z<L>=0:HEXTL 

20040 FORM=0TO6■V=D <M+N,I> 

20043 FORL=0TO7 

20045 IFINT <V/2 T< 7-L > >=0THEN20060 
20050 ZC L >=Z <L >+2ttt:V=V-21<7-L > 

20060 HEXTL^ NEXTM 

20065 Fl$ = " " : FORL=0TO7 = Fl^fW+CHR*< Z < L > +123 > 

20066 HEXTL 

20067 F'RIHT#4,fl$; • HEXTI : PRIHT#4 
20080 HEXTH PRIHT#4,CHRT115 > =RETURN 


RISULTATI COPIAVIDEOH 


!./OI23 

HIJKLMNOPQRSTUUMXVZt 
<-XO* !♦+% 


456789 : 
£1T *—*1 


1 £^>^eABCDEFG 



! M »SX8'<)*+,-./OÌ23456789: :C = >?Cabcdefg 
stuvwxyzC£]f<—ABCDEFGHIJKLMNO 


hijklnnopqr si uvw 
PQRSTUUWXVZ-K: | *ftSS 



ìf : ; = ^ .a’aocaet 
ABCDEFGHIJKLMN 




COMMENTO A C0PIAVIDE04 

Prima di caricare o scrivere il programma e' neces¬ 
sario eseguire in immediato le seguenti istruzioni: 

.1): POKE 55,255:POKE 56,54:CLR per abbassare il top 
della memoria BASIC a 14079 (36FFH ). 

.2): MONITOR per attivare il MONITOR 

T D000 D7FF 3700 per trasferire i 2K delle 
descrizioni dei caratteri dalla ROM (53248) in RAM 
( 1 4080 ) . 

X per uscire dal MONITOR. 

Segue il commento al programma. 

.3: dimensiona le 3 matrici: 

X(2,39) per contenere i D/CODE di 3 righe video, 
D(27,39) per contenere le descrizioni per punti 
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delle 3 righe di caratteri, ma con un numero di linee 
di punti multiplo dì 7. 

Z(7), per contenere i codici dei caratteri gra¬ 
fici ottenuti da 7 byte incolonnati in D. 

.50/55: predispone il set maiuscolo/grafico in campo 
diretto sul video, chiama il sottoprogramma in 100 per 
scrivere i caratteri sul video, pone D-0 per puntare 
al primo set e chiama HARD3 per eseguire la copia. 

.57/59: come sopra ma per il campo inverso. 

. 70 / 75 : come sopra, ma per il secondo set e il campo 
diretto. 

.77/79: come sopra, ma per il campo inverso. 

.81: ripristina il set iniziale e si ferma. 

Ottieni come risultati 96 caratteri del primo set, 
prima in campo diretto e poi in campo inverso, e poi 
96 caratteri del secondo set, ancora nei due modi. 

COMMENTO A HARD3 

.10005: apre la stampante. 

.10010: prepara l'indirizzo della mappa video. 

.10015/10060: trasferisce il contenuto della mappa 
video nella matrice X, usando la funzione PEEK. 

.10063: chiama il sottoprogramma in 20000 per riem¬ 
pire la matrice D con le descrizioni dei caratteri. 

.10064 chiama il sottoprogramma in 20020 per stam¬ 
pare la copia del video. 

.10065: chiude la stampante e ritorna al programma 
prineipale. 

.20000/20015: trasferisce le descrizioni del carat¬ 
teri nella matrice D; se il D/CODE supera 127 scambia 
tra loro i bit 0 con bit 1 e viceversa, per ottenere 
la rappresentazione in campo inverso. 

.20020: inizia la parte stampa passando in modo 
grafico. 

.20035: predispone l'analisi della matrice D in stri¬ 
sce di 7 linee. 

.20038: predispone l'analisi dei 40 caratteri di una 
riga. 

.20039: azzera il vettore Z(7). 

.20040/20060: decodifica a gruppi i 7 byte della 
striscia, ottenendo i codici di 8 caratteri grafici. 

.20065/20066: calcola la stringa corrispondente 

.20067: stampa 8 caratteri grafici contenuti in A$ e 
passa al prossimo gruppo di byte. Alla fine della 
striscia va a capo. 

.20080: chiude il ciclo di analisi delle strisce di 
D, e alla fine ripassa in modo testo ed esce. 
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A nostro avviso l'interesse di questo programma sta 
solo nelle difficolta' di programmazione incontrate, 
cioè' nell'aver fatto lavorare il BASIC a livello di 
bit. Infatti il programma risulta piuttosto lento e 
non può' essere esteso a tutto il video se non 3i 
estende la memoria RAM del calcolatore. 

Nel prossimo paragrafo presentiamo un programma in 
linguaggio macchina che lavora sulla pagina grafica; 
si potrebbe prepararne uno analogo che lavora sul 
video in modo testo, riuscendo ad ottenere la copia 
molto piu' velocemente. 

2.7 COPIA DEL VIDEO GRAFICO SU CARTA 

La pagina grafica viene attivata passando in modo gra¬ 
fico con l'istruzione GRAPHIC. Essa inizia al byte 
8192 ($2000) ed e' formata da 8000 byte, 8 per ogni 

posizione carattere del video in modo testo. I byte 
della pagina grafica sono utilizzati come segue: 

• i primi 8 descrivono il primo insieme di 8x8 punti 
situato nell'angolo in alto a sinistra, corrispon¬ 
dente alla posizione carattere di coordinate 0,0; 

.i successivi 8 byte descrivono l'insieme di 8x8 pun¬ 
ti corrispondente alla posizione carattere di coordi¬ 
nate 1,0 (accanto e a destra della precedente), e 
cosi' via; 

•gli ultimi 8 byte, di indirizzo da 16184 a 16191, 
descrivono l'ultimo insieme di 8x8 punti corrispon¬ 
dente alla posizione carattere di coordinate 39,24. 
Nella Figura 2.4 riportiamo la corrispondenza tra i 
byte della pagina grafica e le posizioni sul video. 

Per risolvere il problema della copia su carta, abbia¬ 
mo già' disponibile la descrizione per punti, ma 
dobbiamo trasformarla in caratteri grafici, cioè’ in 
colonne di 7 punti. Abbiamo già' eseguito questo lavo¬ 
ro in BASIC nel paragrafo precedente con il sottopro¬ 
gramma HARD3. In quel caso nella matrice D(27,39) 
abbiamo messo noi i byte già' organizzati nella 
sequenza nella quale danno il disegno del quadro, co¬ 
me appare nella Figura 2.4. In questo caso, invece, la 
sequenza di byte per indirizzo crescente e' utiliz¬ 
zata in un modo piu' complicato e dobbiamo trovare un 
opportuno algoritmo che ci permetta di riferirci ad 
essi. Per questa ragione, dopo attento esame, abbiamo 
preparato un sottoprogramma in ASSEMBLER, che chia¬ 
miamo HARD 4 ; esso viene richiamato dal programma BASIC 
VIDEOGRAF e si ottiene la copia su carta della pagina 
grafica. 
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Figura 2.4 Come i byte della pagina grafica danno il 
quadro video 


Vediamo ora quali algoritmi abbiamo usato per prele¬ 
vare dalla pagina grafica i punti nella sequenza 
necessaria per la stampa. Dobbiamo costruire carat¬ 
teri grafici per la stampante, formati da colonne di 7 
punti, cioè' utilizzare i byte che danno il quadro 
video a strisce alte 7 punti. La prima volta, per la 
prima linea di stampa, da 8192 a 8198, da 8200 a 
8206,..., da 8504 a 8510, e cosi' via. Dal momento che 
200 diviso 7 da' 28 con resto di 4, l'ultima striscia 
di caratteri grafici avra' solo 4 punti veri e gli 
ultimi 3, i piu' significativi a 0. 

Consideriamo un singolo punto sul video; le sue 
coordinate grafiche X e Y danno la posizione, con 
0<«X<«319 e 0<»Y<«199. Noi dobbiamo trovare un algo¬ 
ritmo che metta in relazione X e Y con l'indirizzo del 
byte (da 8192 a 16191) a cui il punto appartiene e con 
la posizione del bit corrispondente nel byte (da 0, a 
destra, a 7, a sinistra). Chiamiamo IB l'indirizzo del 
byte e IP la posizione del bit nel byte, espressa con 
il suo peso; abbiamo: 
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IB-8192+8*INT(X/8)+320*INT(Y/8)+(Y AND 7) 
IP-2*(7 - (X AND 7) ) 


Con riferimento alla Figura 2.4, verifichiamo le due 
formule per il bit di posizione 5 nel byte di indi¬ 
rizzo 8513. e per il bit di posizione 4 nel byte di 
indirizzo 16184. 

.1) byte 8513, bit di posizione 5 

coordinata X-2, infatti si trova nella terza 
colonna da sinistra 

coordinata Y-9, infatti si trova nella decima 
linea di punti dall'alto 

IB-8192+8*INT(2/8)+320*INT(9/8)+(9 AND 7) 

-8192+0+320*1+1 
-8192+320+1 
-851 3 

IP-2*(7“(2 AND 7)) 

- 2 *( 7 “ 2 ) 

-2*5 

.2) byte 16184, bit di posizione 4 

coordinata X-315, infatti si trova nella quintul¬ 
tima posizione dell'ultimo byte della riga 

coordinata Y-192, infatti si trova nella 193*e- 
sima linea di punti dall'alto 

IB-8l92+8*INT(315/8)+320*INT(192/8)+(192 AND 7) 
-8192+8*38+320*24+0 
-8192+312+7680 
-16184 

IP-2*(7“(315 AND 7)) 

- 2 “( 7 * 3 ) 

-2*4 


6 REM VIOEOGRRF 

10 P0KE56•23=P0KE55,0 : CLR 

20 FORI=0TO244 : RERDR:P0KE5888+I, fi* NEXT 

30 0PEN4,4 : PRI NT#4, CHRt <8 ■' ; 

40 FORI =0T0321 PR.INT#4, CHR *<. 192> 5 ■ NEXT 
50 CMD4:SVS5888 

60 FORI=0T0321 PRINT44,CHR4<129 >; :NEXT 

61 PRIHT#4.CHR#U4> 

70 GL.OSE4 

999 REM ORTI PER HRRD4 

1000 DRTR169,7,141,71,63,169,0,141 
1010 DRTR72,63,169,255,32,210,255,169 
1020 DRTRO,141,64,63,141,65,63,169 

1030 DRTR128,141,74,63,169,0,141,73 
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1040 DRTR63, 173,72,63,24,109,73,63 
1050 DflTRl41,6S,63,32,121,23,238,73 
1060 DRTR63, 1 73 , 73,6:3, 205,71,63,208 
1070 DRTR232,173,74,63,32,210,255,238 
1080 DRTR64,63,173,64,63,208,3,238 
1890 DRTR65,63,201,64,208,201,173,65 
1100 DRTR63,281,1,208,194,169,255,32 
1110 DRTR218,255,169,13,32,210,255,173 
1120 DRTR72,63,24,105,7,141,72,63 
1130 DRTR281,196,208,5,169,4,141,71 
1140 0RTR63,173,68,63,281,199,208,146 
1158 DRTR96,173,64,63,41,248,141,66 
1160 DRTR63,173,64,63,41,7,141,67 
1170 DRTR63,173,68,63,74,74,74,141 
1188 DRTR69,63,173,68,63,41,7,141 
1190 DRTR78,63,169,32, 133, 4, 169,0 
1280 DRTR133,3,172,69,63,240,16,165 
1210 DRTR3,24,185,64,133,3,165,4 
1220 DRTR105,1,133,4,136,208,240,165 
1230 DRTR3,24,109,66,63,133,3,165 
1240 DRTR4,109,65,63,133,4,173,70 
1258 DRTR63,24,101,3, 133,3,165,4 
1268 DRTR185,0,133,4,169,128,174,67 
1278 DRTR63,248,4,74,202,208,252,33 
1280 DRTR3,240,17,169,1,172,73,63 
1298 DRTR240,4,10,136,208,252,13,74 
1300 0RTR63,141,74,63,96 


COMMENTO A VIDEOGRAF 

.10: abbassa 11 top della memoria a $1700 per non 
sporcare con le variabili 11 sottoprogramma in 
linguaggio macchina, le memorie degli attributi per la 
pagina grafica e la pagina grafica stessa (che occu¬ 
pano rispettivamente 1 byte da $1700 a $17F*l, da $1800 
a 1BE7, da 1CO0 a 1FE7 e da $2000 a $3F40). 

.20: carica il programma in linguaggio macchina in 
memoria. 

.30: apre il canale con la stampante e la pone in mo¬ 
do grafico. 

.1)0: disegna la striscia di contorno superiore. 

.50: dirotta l'output sulla stampante e esegue la 
routine in linguaggio macchina. 

.60: disegna la striscia di contorno inferiore e fa 
uscire la stampante dal modo grafico. 

.70: chiude il canale con la stampante. 

.1000/1300: dati relativi a HARD)). 

Vediamo ora il programma ASSEMBLER HARD)) : 

MONITOR 

PC SR RC XR VR SP 
; 0000 00 00 00 00 F8 

. 1700 R9 07 LDR #*07 

. 1702 8D 47 3F STR $3F47 

. 1705 R9 00 LDR #*0© 
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170? 

8D 

48 

3F 

STO 

$3F48 

1700 

09 

FF 


LDO 

#$FF 

17 OC 

20 

D2 

FF 

JSR 

$FFD2 

170F 

09 

00 


LDO 

#$00 

1711 

8D 

40 

3F 

STO 

$3F40 

1714 

8D 

41 

3F 

STO 

$3F41 

1717 

09 

80 


LDO 

#$80 

1719 

80 

40 

3F 

STO 

$3F40 

171C 

09 

00 


LDO 

#$00 

171E 

SD 

49 

3F 

STO 

$3F49 

1721 

OD 

48 

3F 

LDO 

$3F48 

1724 

18 



CLC 


1725 

60 

49 

3F 

ODO 

$3F49 

1728 

SD 

44 

3F 

STO 

$3F44 

172B 

20 

79 

17 

JSR 

$1779 

172E 

EE 

49 

3F 

INC 

$3F49 

1731 

OD 

49 

3F 

LDO 

$3F49 

1734 

CD 

47 

3F 

CNF 

$3F47 

1737 

D0 

E8 


BUE 

$1721 

1739 

OD 

40 

3F 

LDO 

$3F40 

173C 

20 

D2 

FF 

JSR 

$FFD2 

173F 

EE 

40 

3F 

INC 

$3F40 

1742 

OD 

40 

3F 

LDO 

$3F40 

1745 

D0 

03 


BUE 

$1740 

1747 

EE 

41 

3F 

INC 

$3F41 

174R 

09 

40 


CMP 

#$40 

174C 

D0 

09 


BNE 

$1717 

174E 

OD 

41 

3F 

LDO 

$3F41 

1751 

09 

01 


CMP 

#$01 

1753 

D0 

02 


BNE 

$1717 

1755 

09 

FF 


LDO 

#$FF 

1757 

20 

D2 

FF 

JSR 

$FFD2 

175fi 

09 

0D 


LDO 

#$0D 

1750 

20 

D2 

FF 

JSR 

$FFD2 

175F 

OD 

48 

3F 

LDO 

$3F48 

1762 

18 



CLC 


1763 

69 

07 


ODO 

#$07 

1765 

8D 

48 

3F 

STO 

$3F48 

1768 

09 

04 


CMP 

#$C4 

1760 

D8 

05 


BNE 

$1771 

176C 

09 

04 


LDO 

#$04 

176E 

8D 

4? 

3F 

STO 

$3F47 

1771 

OD 

44 

3F 

LDO 

$3F44 

1774 

09 

07 


CMP 

#$C7 

1776 

D0 

92 


BUE 

$1700 

1778 

60 



RTS 


1779 

OD 

40 

3F 

LDO 

$3F40 

177C 

29 

F8 


OND 

#$FS 

177E 

SD 

42 

3F 

STO 

$3F42 

1781 

OD 

40 

3F 

LDO 

$3F40 

1784 

29 

07 


OND 

#$07 

1786 

8D 

43 

3F 

STO 

$3F43 

1789 

OD 

44 

3F 

LDO 

$3F44 

1780 

40 



LSR 


178D 

40 



LSR 


178E 

40 



LSR 


178F 

8D 

45 

3F 

STO 

$3F45 

1792 

OD 

44 

3F 

LDO 

$3F44 

1795 

29 

07 


OND 

#$07 

1797 

8D 

46 

3F 

STO 

$3F46 

1790 

09 

20 


LDO 

#$20 

1790 

85 

04 


STO 

$04 

179E 

09 

00 


LDO 

#$00 
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17R0 

85 

03 


STR 

$03 

17R2 

RC 

45 

3F 

LDV 

$3F45 

17R5 

F0 

10 


BEO 

$17B7 

17A7 

R5 

03 


LDR 

$03 

17R9 

13 



CLC 


17RR 

69 

40 


ROC 

#$40 

17RC 

85 

03 


STR 

$03 

17RE 

R5 

04 


LDR 

$04 

17B0 

69 

01 


ROC 

#$01 

17B2 

85 

04 


STR 

$04 

17B4 

88 



DEV 


17B5 

00 

F0 


BNE 

$ 17R7 

17B7 

R5 

03 


LDR 

$03 

17B9 

18 



CLC 


17Bfi 

60 

42 

3F 

ROC 

$3F42 

17BD 

85 

03 


STR 

$03 

17BF 

R5 

04 


LDR 

$04 

17C1 

60 

41 

3F 

RDC 

$3F41 

17C4 

85 

04 


STR 

$04 

17C6 

RD 

46 

3F 

LDR 

$3F46 

17C9 

18 



CLC 


17CR 

65 

03 


RDC 

$03 

17CC 

85 

03 


STR 

$03 

17CE 

R5 

04 


LDR 

$04 

17D0 

69 

00 


RDC 

#$00 

1702 

85 

04 


STR 

$04 

1704 

R9 

80 


LDR 

#$80 

1706 

RE 

43 

3F 

LDX 

$3F43 

17D9 

F0 

04 


BEQ 

$ 170F 

17DB 

4R 



LSR 


17DC 

CR 



DEX 


17DD 

00 

FC 


BNE 

$ 17DB 

170F 

21 

03 


RHD 

<$03 .. X> 

17E1 

F0 

11 


BEQ 

$ 17F4 

17E3 

R9 

01 


LDR 

#$01 

17E5 

RC 

49 

3F 

LDV 

$3F49 

17E3 

F0 

04 


BEQ 

$17EE 

17ER 

0R 



RSL 


17EB 

88 



DEV 


17EC 

00 

FC 


BNE 

$17ER 

17EE 

00 

4fi 

3F 

ORA 

$3F4R 

17F1 

80 

4fi 

3F 

STR 

$3F4R 

17F4 

60 



RTS 



Questa routine usa alcuni byte come memoria di lavoro: 


.$3F40,$3F41 : contatore per X (byte basso/alt 
. $3F42 : INT(X/8)*8 (byte basso). 


• $3F 4 3 : 
.$3F44 : 
.$3F45: 
. $3F46 : 


X AND 7. 

X. 

INT(Y/8) . 
Y AND 7. 


•$3F47: numero di linee che compongono la 
corrente (normalmente 7: per l'ultima striscia 
.$3F48: 7 per numero di strisce già' stampate 
•$3F49: numero di linea nella striscia. 
.$3F4A: codice del carattere da stampare. 


o ). 


striscia 

4). 
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INtZIAUZZA PROGRAMMA 



Figura 2.5 Diagramma a blocchi sottoprogramma HARD4 

7 3 

















7 4 
























Dal momento che questo sottoprogramma non e'molto 
semplice, riportiamo nelle Figure 2.5 e 2.6, rispetti¬ 
vamente il diagramma a blocchi di HARD4 e quello del¬ 
la routine interna ad esso. 


Per facilitare la comprensione del programma, abbiamo 
numerato ogni blocco dei diagrammi (con un numero 
posto fuori a destra) e diamo la corrispondenza tra i 
blocchi e le linee del listato ASSEMBLER: 


Per la 

Figura 2.5: 

BLOCCO 

1 : 

linee 1700-1707- 

BLOCCO 

2 : 

linee 170A-1714. 

BLOCCO 

3 : 

linee 1717-171E. 

BLOCCO 

4 : 

linee 1721-1728. 

BLOCCO 

5 : 

linea 172B. 

BLOCCO 

6 : 

linea 172E. 

BLOCCO 

7 : 

linee 1731-1737. 

BLOCCO 

8 : 

linee 1739-173C. 

BLOCCO 

9 : 

linee 173F-1747. 

BLOCCO 

1 0 

linee 174A-1753. 

BLOCCO 

1 1 

linee 1755-175C. 

BLOCCO 

1 2 

linee 175F-1765. 

BLOCCO 

1 3 

linee 1768-176A. 

BLOCCO 

1 4 

linee 176C-176E. 

BLOCCO 

1 5 

linee 1771-1776. 

BLOCCO 

1 6 

linea 1778. 


Per la 

Figura2.6 : 


BLOCCO 

17 

: linee 

1779-1797. 

BLOCCO 

1 8 

: linee 

179A-17AO. 

BLOCCO 

19 

: linee 

17A2-17B5. 

BLOCCO 

20 

: linee 

17B7-17C4. 

BLOCCO 

21 

: linee 

17C6-17D2. 

BLOCCO 

22 

: linee 

1 7D4-17D6. 

BLOCCO 

23 

: linee 

17D9-17DD. 

BLOCCO 

24 

: linee 

1 7DF. 

BLOCCO 

25 

: linee 

1 7E1 . 

BLOCCO 

26 

: linee 

17E3-17E5. 

BLOCCO 

27 

: linee 

17E8-17EC. 

BLOCCO 

28 

: linee 

17EE-17F1. 

BLOCCO 

29 

: linee 

1 7F4 . 
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Per poter usare con soddisfazione VIDEOGRAF, devi pri¬ 
ma aver disegnato qualcosa sulla pagina grafica, ed 
essere tornato in modo testo. Noi abbiamo usato il 
programma ES7•1. riportato nel primo volume a pag. 90, 
leggermente modificato. Esso infatti lasciava sporca 
la prima posizione carattere del video grafico, anche 
se questo non era visibile dato il colore usato. Il 
programma modificato si chiama SCRIVEGRAF. 


0 REM SCRIVEGRfìF 

5 COLORO , 1 = C0L0R4, 1 : VV=1 : NC=40 ; C=8 ; TRRP500 
1O GRftPHIC1,1 
20 GETKEVA* 

30 IFfl$=CHR$ <13> THENXX=0=VV=VV+1 :GOTO20 
40 IFfl$=CHR*<20 >THEHGOSUB300‘GOTO20 
50 IFR*=CHR*<27 > THENGOSUB400 = GOTO20 
60 GOSUB200 

70 XX=XX+C=IFXX>319—CTHENXX=0>VV=VV+1 
80 GOT020 

200 COLORI,1=CHflR,0,0,R$ = COLORI,7,7 

210 FORX=0TOC—1 

220 FGRV=0TO7 

230 LOCATEX♦8/C,V 

240 DRRWRDOT<2>,XX+X,YV*8+V 

250 HEXTV,X 

260 RETURN 

300 XX=XX-C = VV=VV+ <XX<0 >>XX-XX-320*<XX<01 

310 fi*=" "=GOSUB200^ RETURN 

400 GETKEYR*,:NC=VRLCR*>*10+VRL < B*> 

410 C=320/NC: RETURN 

500 FORX=0TO7^ POKE<8192+X>,0 = NEXTX = GRRPHIC0■SCNCLR 


E* stato cambiato il nome e aggiunto qualcosa alla 
linea 500. Il tasto ESC seguito da un numero modifica 
il numero dei caratteri di una linea video. 

Con SCRIVEGRAF abbiamo preparato il disegno che vedi 
riprodotto da HARD4. Ovviamente puoi usare qualunque 
programma per produrre un disegno in pagina grafica. 
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RISULTATO VIDEOGRAF 


QUADRO VIDEO PER PROUA HARDCOPV 
DEL OIDEO GRAFICO 


OTTENUTO CON IL PROGRAMMA 


-Fi Ci I UEGRA IF 


ESC iZ - C* 







CAPITOLO 3 


I FILE SU DISCO 


3.1 INTRODUZIONE 

Al COMMODORE 16 possono essere collegate in serie 
diverse periferiche tra unita' a disco e stampanti. 

Le unita' disco sono di norma vendute con dn-8, cioè' 
gli switch interni sono posizionati su 8. Se il calco¬ 
latore e' collegato a piu' unita', la prima può' 
mantenere dn-8, la o le altre possono avere dn da 9 a 
11. Per modificare il "dn", si può' agire all'interno 
dell'unita', rendendo permanente il nuovo numero, 
oppure procedere all'assegnazione temporanea via 
software del nuovo numero, al momento dell'ac¬ 
censione . 

Noi ci occupiamo dell'unita' 15^1 e i programmi esem¬ 
pio si riferiscono al collegamento di una sola uni¬ 
ta ' . 

L'unita' 15*11 e’ una periferica intelligente, cioè' 
essa lavora in modo indipendente dopo aver ricevuto i 
comandi dal calcolatore. Le sue parti componenti sono: 
. un microprocessore 6502, 

. 16K di memoria ROM, contenenti il DOS (Disk Opera- 
tlng System), 

. 2K di memoria RAM per i buffer e le memorie di 
lavoro, 

. un'interfaccia seriale IEEEJ188, 

. due porte di comunicazione, 

. le parti elettromeccaniche necessarie. 

Le due porte di comunicazione consentono di collegare 
in serie piu' unita'. 
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Figura 3.1 Collegamento tra calcolatore, unita' 15*11 
e stampante MPS-803 


Nella parte anteriore dell'unita' sono visibili: 

. lo sportellino e la fessura per l'introduzione del 
dischetto, 

. un indicatore luminoso, a sinistra, a luce verde, 
che indica se l'unita' e' accesa, 

. un indicatore luminoso, piu' verso il centro, a lu¬ 
ce rossa, che indica, quando acceso, se e' in corso 
fisicamente un'operazione sul dischetto. Questo 
indicatore lampeggia quando si verifica un errore. 



\ INDICATORE DI ACCENSIONE 


Figura 3.2 Parte anteriore unita' 15*11 
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Il dischetto flessibile, floppy, e' contenuto in una 
busta protettiva di plastica con alcune aperture, 
visibili nella Figura 3.3. 




DIREZIONE DI 
INSERIMENTO 


Figura 3-3 II dischetto nella sua busta 


Il dischetto non deve mai essere maneggiato toccando 
le aperture. La testina di lettura e scrittura agisce 
attraverso la finestra oblunga centrale. La finestra 
laterale serve per proteggere il disco da scrittura, 
basta chiuderla con una delle apposite etichette. Il 
floppy non deve essere estratto con acceso l'indi¬ 
catore rosso. 

Le registrazioni sul floppy sono eseguite secondo 
tracce concentriche. Sul tipo di floppy usati per 
l'unita’ 15*41 sono disponibili *40 tracce su una sola 
faccia; di queste ne vengono utilizzate solo 35. Ogni 
traccia e' divisa in blocchi, chiamati settori, in 
numero diverso per gruppi di tracce, come sotto ripor¬ 
tato. 


FORMATO DEL FLOPPY 

Numero traccia Numero settori Numerazione settori 


da 

i 

a 

1 7 

21 

da 

0 

a 

20 

da 

1 8 

a 

2*4 

1 9 

da 

0 

a 

18 

da 

25 

a 

30 

1 8 

da 

0 

a 

1 7 

da 

31 

a 

35 

1 7 

da 

0 

a 

1 6 


Facendo i conti risultano disponibili in tutto: 
17*21 + 7*19 ♦ 6*18 + 5*17 = 683 settori. 
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Il settore e' il record fisico del floppy; esso 
contiene 256 byte. Nel seguito indichiamo con byte 0 
il primo e con byte 255 l'ultimo del settore. La trac¬ 
cia 18, di 19 settori, che si trova al centro del 
dischetto (vedi Figura 3- 4), e' utilizzata in un modo 
particolare; essa contiene l'indice delle registra¬ 
zioni effettuate sul floppy e la mappa dell'oc¬ 
cupazione dei settori. Questo e' necessario dato che 
il floppy e' un supporto di registrazione ad accesso 
diretto, non rigorosamente sequenziale come il nastro, 
e si deve conoscere l'ubicazione delle diverse 
registrazioni . 



Figura 3.4 Schema non in scala del dischetto 

Il dischetto nuovo non può' essere utilizzato immedia¬ 
tamente; prima e' necessario eseguire su di esso 
un'operazione di preparazione all'uso, che si chiama 
"formattazione". Essa consiste nella registrazione sul 
dischetto degli indirizzi di traccia e settore, 
nell'assegnazione di un nome e di una identificazione 
di 2 caratteri, nella creazione della "mappa" del 
dischetto e della "directory". 

Vediamo l'utilizzo della traccia 18 e dei suoi 19 
settori, di indirizzo da 0 a 18. 

TRACCIA 18 - SETTORE 0 

. byte da 0 a 143, mappa di occupazione, chiamata BAM 
(Block Availability Map). 
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Questi 144 byte sono utilizzati cosi’: 

. byte 0 e 1, concatenamento al settore seguente, 
contengono 18 (12H) e 1 (01H), traccia 18 settore 1. 

. byte 2, contiene 65, codice ASCII della lettera A, 
che indica il formato dell'unita'. 

. byte 3, contiene tutti bit 0 e non e' usato. 

. byte da 4 a 143, 140 byte che contengono la mappa 
di occupazione, utilizzando 4 byte per ogni traccia 
(35*4-140). Ogni quartina di byte e' utilizzata cosi': 

. primo byte, numero del settori ancora dispo¬ 
nibili nella traccia; 

. secondo byte, mappa dei primi 8 settori della 
traccia, utilizzando i bit a partire dal meno signifi¬ 
cativo; quello piu' a destra per il settore 0, quello 
piu' a sinistra per il settore 7; 

. terzo byte, mappa degli 8 settori seguenti, da 8 
a 15; 

. quarto byte, mappa degli ultimi settori della 
traccia, a partire dal 16. Restano inutilizzati alcu¬ 
ni bit a seconda delle tracce. 

Se il bit e' 1, il settore corrispondente e' libero, 
se e' 0, esso e' occupato. 

. byte da 144 a 255, identificazione del dischetto, 
blocco di inizio della directory: 

. byte da 144 a 161, 18 byte, di cui 16 per il 

nome, se esso e' piu' corto viene completato con il 

codice ASCII 160, corrispondente al carattere 
SHIFT-spazio, gli ultimi 2 byte sempre con codice 160; 

. byte 162 e 163. i due caratteri di identifi¬ 

cazione (ID) del floppy; 

. byte 164, codice 160; 

. byte 165 e 166, caratteri 2A, versione del DOS e 
formato dischetto; 

. byte da 167 a 170, codice 160; 

. byte da 171 a 255, non utilizzati, con tutti i 

bit a 0. 


TRACCIA 18 - SETTORI DA 1 A 18 

Contengono l'indice del disco "directory"; in ogni 
settore e' registrato l'indice di 8 file. In conse¬ 
guenza il numero massimo di file registrabili e' 144, 
18*8-144. Ogni registrazione nell'indice viene chia¬ 
mata "entrata" (entry), e occupa 30 byte. La strut¬ 
tura di ogni settore e' la seguente:, 

. byte 0 e 1, concatenamento al settore seguente. Se 
il settore e' l'ultimo della catena, il byte 0 contie¬ 
ne tutti bit 0 e il byte 1 contiene il puntatore 
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il settore 


all'ultimo byte utilizzato, quindi 255 se 
e' completo. 

. byte da 2 a 31 . entrata 1 : 

. primo byte, tipo del file: 

tutti bit 0 per DEL, file cancellato, 

128 + 1 per SEQ, file sequenziale, 

128 + 2 per PRG, file programma, 

128 + 3 per USR, file utente, 

128 + 4 per REL, file relativo. 

. secondo e terzo byte, indirizzo di traccia e 
settore del primo blocco del file. 

. dal quarto al 19-esimo byte, 16 byte per il no¬ 
me del file, completato con codice 160 se piu' cor¬ 
to. 

. 20-esimo e 21-esimo byte, usati per i file rela¬ 
tivi, contengono gli indirizzi di traccia e settore 
del primo blocco "side sector" (indice interno del fi¬ 
le relativo). 

. 22-esimo byte, usato solo per i file relativi, 
contiene la lunghezza del record, <-254. 

. dal 23*esimo al 26-esimo byte, 4 byte non usa¬ 
ti. 

. 27-esimo e 28-esimo byte, traccia e settore del 
primo blocco del file rimemorizzato, cioè' del file 
che e' stato memorizzato usando il carattere 

. 29-esimo e 30-esimo byte, numero dei blocchi 
occupati dal file, nell'ordine LO-HI. 

. byte 32 e 33. 2 caratteri separatori, contenenti 

tutti bit 0. 

. byte da 3^ a 63. entrata 2. 


. byte 224 e 225, 2 caratteri separatori. 

. byte da 226 a 255, entrata 8. 

Dei 683 settori disponibili, 19 sono usati per le 
informazioni sopra descritte; in conseguenza restano 
disponibili per i file 664 settori (683*19-664). 

Dopo l'inserimento del dischetto nell'unita' 1541, al 
primo accesso avviene l’operazione di "inizializ- 
zazione", che consiste nel: 

. allineare la testina di lettura con la traccia, 

. leggere il settore 0 della traccia 18 in uno dei 
buffer di 256 byte dell'unita'. Questa operazione e' 
essenziale, infatti per poter scrivere sul dischetto 
deve essere consultabile la BAH, altrimenti si rischia 
di scrivere sopra settori già' occupati. Inoltre la 




BAM deve essere riscritta sul dischetto, prima di 
toglierlo dall'unita', altrimenti il dischetto non e' 
piu' utilizzabile in modo corretto. 

Devi fare attenzione e non confondere la format¬ 
tazione con 1'inizia1izzazione ; le differenze tra le 
due operazioni sono: 

. la formattazione agisce sul dischetto e lo modi¬ 
fica, 

. 1 ' inizia1izzazione preleva informazioni dal 

dischetto e le carica nella RAM dell'unita' 1541. 

La directory, invece, viene letta a pezzi quando ser¬ 
ve, settore per settore, per trovare la localiz¬ 
zazione di un file e le informazioni necessarie alla 
sua gestione. Essa viene parzialmente riscritta per 
registrare le modifiche, quando serve. 

Abbiamo detto che in un settore si possono registrare 
256 byte; in realta' il settore e' formato anche da 
altri byte, ma questi sono utilizzati dal sistema, per 
1'indirizzamento e per i controlli. Tu puoi usare so¬ 
lo i 256 byte disponibili per l'utente. 

Le caratteristiche tecniche del floppy sono: 

.Capacita' totale: 174848 byte (683*256) 

^Capacita' per file sequenziali 168656 byte (in ogni 
settore 1 primi 2 byte sono usati per il concate¬ 
namento, quindi 254*664) 

.Capacita' per file relativi 167132 (664*256 

664*2(concatenamento) - 254*6(side sector) ), con al 
massimo 65535 record logici per file 
.Entrate nella directory: 144 
.Settori per traccia: da 17 a 21 
.Byte per blocco: 256 
.Tracce: 35 

.Totale blocchi: 683. di cui disponibili 664 per 
registrare file. 

Le operazioni di lettura e scrittura relative al flop¬ 
py avvengono sempre a livello di blocco fisico, cioè' 
di un intero settore. 


3.2 IL DOS 

Il DOS (Disk Operating System) e' una versione del 
sistema operativo DOS residente nella ROM dell'unita' 
1541; esso esegue i comandi che riceve dal calco¬ 
latore, funzionando in modo indipendente. Il COMMODORE 
16 invia attraverso l'interfaccia seriale sequenze di 
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byte alla periferica 1541; il DOS riconosce se si 
tratta di comandi o di dati e gestisce le operazioni 
disco. 

Nel Paragrafo 1.1 abbiamo riepilogato le istruzioni 
BASIC per la gestione dei file; ora vediamo il signi¬ 
ficato dei parametri per la periferica 15*11. 

. lfn, numero logico del file può* variare da 0 a 
1 27 . 

. dn, numero dell'apparecchiatura, vale 8 se si usa 
una sola unita' collegata. Può' variare da 8 a 11 per 
piu* unita' collegate. 

. sa, secondo la terminologia COMMODORE viene in que¬ 
sto caso chiamato "canale" invece di "indirizzo secon¬ 
dario". Esso gioca un ruolo molto importante, infatti 
il suo valore permette al DOS di interpretare i dati 
trasmessi. I valori possibili per "sa" vanno da 0 a 
15 : 

. sa-15, canale comandi; 

. sa-O, canale usato per aprire un file in lettura; 

. sa-1, canale usato per aprire un file programma 
in scrittura; 

. sa-2,...,14, canale per trasferimento dati. 

. nomef, nome del file può’ essere lungo fino a 16 
caratteri. Esso può' essere preceduto dal numero del 
drive, che e' 0 e può' essere omesso per unita' singo¬ 
le, deve essere 0 o 1 per unita' doppie. 

. tipo, tipo del file, può' essere: PRG, SEQ, USR, 
REL (abbreviato alla prima lettera). 

. modo, può' essere W per scrivere e R per leggere, 
nel caso dei file sequenziali. Si può' usare anche A 
(Append) con il significato di prolungare (aggiungere 
in coda dati) un file sequenziale. 

Attraverso il canale 15, il calcolatore invia all'u¬ 
nita' 1541, con le istruzioni OPEN e/o PRINT#, strin¬ 
ghe di comandi, che esaminiamo nel seguito. Il DOS 
provvede a interpretare i comandi e li manda in esecu¬ 
zione; esso assegna al canale lo spazio di memoria RAM 
necessario per lavorare e i buffer necessari. La RAM 
dell'unita' 1541 comprende 8 buffer di 256 byte 
ciascuno; di es3l 4 sono sempre impegnati per la BAM, 
le variabili di lavoro e il controllo delle opera¬ 
zioni. Restano a disposizione solo 4 buffer per i 
file; in conseguenza si possono gestire contempo¬ 
raneamente 3 o 4 file, a seconda del loro tipo. 

Prendiamo ora in esame un primo gruppo di stringhe di 
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comandi per la gestione del dischetto; esse 3i pos¬ 
sono inviare al DOS in BASIC, sia in modo immediato 
che da programma. Per inviare il comando si possono 
seguire due strade: 

.1) OPENlfn , 8,15 

PRINT#lfn, stringa-comandi 

.2) 0PEN1fn,8,15,stringa-comandi 

e in ambedue i casi devi terminare con CLOSElfn. Se 
non si esegue la CLOSE, ad una successiva apertura si 
ha errore. Puoi decidere di aprire all'inizio del 
programma il canale 15, di inviare i comandi con 
PRINT#lfn e di chiudere il canale solo alla fine del 
programma. 

I comandi di utilità' generale disponibili, che si 
possono scrivere per esteso o abbreviandoli alla pri¬ 
ma lettera, sono: 

.NEW, per formattare il dischetto, 

.INITIALIZE, per allineare la testina e caricare la 
BAM, 

.VALIDATE, per sistemare la BAM in base alle entrate 
valide registrate nella directory, 

.COPY, per copiare file, 

.RENAME, per cambiare nome a un file, 

.SCRATCH, per cancellare un file. 

II BASIC 3-5 del COMMODORE 16 mette a disposizione, 
come già' visto nel primo volume, alcuni comandi che 
producono lo stesso effetto di alcuni di questi, e non 
hanno bisogno di essere preceduti dalla OPEN del cana¬ 
le 15. 


NEW 

può' essere usato per: 

.preparare un disco nuovo (o già' usato) per l'uso. 
Vengono registrati gli indirizzi di traccia e setto¬ 
re, il nome e l'identificazione, viene preparata la 
BAM. 

•cancellare un disco già’ usato, mantenendo inva¬ 
riata 1'dentificazione, ma senza riscrivere gli 
indirizzi, e aggiornando la BAM. 

La stringa si scrive: "Ndr: nome ,XX" 

.dr, può' essere omesso se 0. 
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.nome, e' il nome da assegnare al dischetto, massimo 
16 caratteri . 

•XX, e’ la "identificazione" del dischetto; deve 
essere di 2 caratteri (scelti a piacere). Omettendo XX 
con un floppy già' usato, si ottiene di cancellare il 
precedente contenuto, senza riscrivere gli indirizzi. 
Non puoi omettere XX con un floppy nuovo. 

11 comando BASIC equivalente e' HEADER. 


INITIALIZE 

deve essere usato per allineare la testina di lettura 
e scrittura all'inizio della traccia e per caricare la 
BAM in un buffer dell'unita' 15*11. 

La stringa si scrive: "Idr" 

.dr, può' essere omesso se 0. 

Quando inserisci il floppy nell'unita' questa opera¬ 
zione deve avvenire automaticamente, comunque e' bene 
eseguirla quando si usa molto il dischetto. Prima di 
eseguirla devi chiudere i file eventualmente aperti. 


Non esiste un comando BASIC equivalente. 


VALIDATE 

serve per rimettere in ordine un dischetto nel quale 
la situazione della BAM non corrisponde alle entrate 
della directory, ci sono file non correttamente chiu¬ 
si (con un asterisco di fianco al tipo nella lista 
della directory). Devi eseguire questa operazione 
quando la somma dei blocchi occupati e dei blocchi 
liberi non da* 66M. 

La stringa si scrive: "Vdr" 

.dr, può' essere omesso se 0. 

Il comando rigenera la BAM in base alle entrate della 
directory e cancella le entrate della directory non 
valide. 

Il comando BASIC equivalente e' COLLECT. 


COPY 

consente di ottenere copie di un file di qualunque 
tipo. Se il floppy e' unico (come per l'unita' 15*11) 
il nome vecchio e il nome nuovo devono essere diver¬ 
si. Si possono anche fondere piu' file sequenziali di 
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dati in un unico file. Lavora su unita' singola o su 
unita' a due drive, non su due unita' diverse. 

La stringa si scrive: 

"Cdr:dnomef-dr:snomef" per copia di un file 
"Cdr:dnomef-dr:snomef1,snomef2 ,... " per fondere fi¬ 
le sequenziali di dati. 

.dnomef, e' il file destinazione. 

.snomef, e' il file sorgente. 

Il file sorgente deve essere stato correttamente chiu¬ 
so . 

Il comando BASIC equivalente e' COPY. 

Inoltre per unita’ a due floppy in BASIC e’ dispo¬ 
nibile anche il comando BACKUP (DUPLICATE del DOS). 

Per il momento non e' disponibile un'unita' a 2 drive 
da collegare direttamente al COMMODORE 16. 


RENAME 

serve per cambiare nome a un file nella directory sen¬ 
za spostare il file. 

La stringa si scrive: "Rdr:nnomef-vnomef" 

.nnomef, e' il nome nuovo. 

.vnomef, e' il nome vecchio. 

Il file su cui operi deve essere stato correttamente 
chiuso. 

Il comando BASIC equivalente e' RENAME. 


SCRATCH 

cancella uno o piu' file ponendo DEL (tutti bit 0) co¬ 
me tipo nell'entrata della directory e aggiorna la 
BAM. 

La stringa si scrive: 

"Sdr:nomef" per un solo file 

"Sdr:nomef1,nomef2 , .. " per piu' file. 

Ti consigliamo di cancellare i file che non ti ser¬ 
vono piu' prima di riscriverli e di non usare il 
carattere nella OPEN o nelle SAVE, DSAVE. Infatti 

quest'ultimo modo di procedere può', a volte, gene¬ 
rare degli inconvenienti sul dischetto. 

Il comando BASIC equivalente e' SCRATCH. 


Per tutti 1 comandi visti il "dn” viene citato nella 
OPEN e seleziona l'unita', se ci sono piu' collega- 
menti . 
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Oltre a quelli già’ esaminati sono disponibili altri 
tre gruppi di comandi che servono per: 

.gestire direttamente le operazioni di lettura e 
scrittura sul dischetto accedendo a un blocco fisico, 
individuato dal suo indirizzo di traccia e settore, 
.gestire i file relativi. 

.aggiungere al DOS routine utente, che possono esse¬ 
re lette dal floppy e scritte sul floppy e mandarle in 
esecuzione. 


GESTIONE DIRETTA 

Esaminiamo ora i comandi per la gestione diretta del¬ 
le operazioni sul floppy. Per poter eseguire questi 
comandi deve essere aperto il canale 15 e deve essere 
aperto uno dei canali, da 2 a 1A, per il trasfe¬ 
rimento dei dati. 

Nel seguito presupponiamo che siano state eseguite le 
due OPEN, prima della PRINT# che invia il comando, e 
che alla fine delle operazioni vengano eseguite le due 
corrispondenti CLOSE. 

Le OPEN devono essere eseguite nel seguente ordine: 

. 0PENlfn,8,15 per aprire il canale comandi con un 
determinato "lfn". Noi, per abitudine usiamo il nume¬ 
ro 15 per questo "lfn", cosi' non dobbiamo ricordare 
un altro numero: OPEN15.8.15. 

. OPENlfn,8,sa,"#" per aprire il canale per i dati. 
Lo "lfn" usato qui deve essere diverso da quello del¬ 
la OPEN precedente; esso deve variare tra 0 e 127; 
"sa" può' variare da 2 a 14. Noi di solito usiamo per 
"lfn" e "sa" valori uguali, compresi tra 2 e 14, ma 
escludiamo il 4, dato che, per abitudine, lo usiamo 
per la stampante. Il carattere "#" deve essere presen¬ 
te e significa apertura per accesso diretto. I buffer 
dell'unita' 1541 sono numerati da 0 a 7; 3e vuol puoi 
scrivere dopo il carattere un numero per sceglie¬ 
re un buffer particolare, con il rischio di trovarlo 
già' occupato. Se scrivi "#4", chiedi di usare il 
quinto buffer per i dati. Qualora desideri sapere qua¬ 
le dei buffer il sistema ha usato, puoi subito dopo la 
OPEN..."#", eseguire GET#lfn,A$; in A$ trovi il nume¬ 
ro del buffer assegnato. Questa ultima OPEN non pro¬ 
duce una registrazione nella directory; questo fatto 
può' essere pericoloso, infatti, se si eseguono i 
comandi VALIDATE o COLLECT, le registrazioni dirette 
spariscono, nel senso che vengono liberati i settori 
della BAM non registrati nella directory. 
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Al termine delle operazioni la CLOSE del canale dei 
dati deve essere eseguita prima della CLOSE del cana¬ 
le comandi. Il canale comandi può' essere aperto 
all'inizio del programma e chiuso alla fine. 

I comandi disponibili in questo gruppo sono: 

. BLOCK-ALLOCATE, per allocare un blocco, abbreviato 
in B-A; 

. BLOCK-FREE, per liberare un blocco, abbreviato in 
B-F; 

. BLOCK-READ, per leggere un blocco nel buffer dei 
dati, abbreviato in B-R; 

. BLOCK-WRITE, per scrivere il contenuto del buffer 
dei dati 3ul disco; 

. BUFFER-POINTER, per posizionare il puntatore in una 
determinata posizione nel buffer dei dati; 

. USER 1 , simile a B-R, abbreviato in U1 ; 

. USER2, simile a B-W, abbreviato in U2. 

Nelle spiegazioni che seguono usiamo i parametri già’ 
noti, e, in piu', "t" per traccia e "s" per settore, 
"p" per posizione del puntatore nel buffer. 

Precisiamo come si svolgono le operazioni dirette sul 
floppy : 

.SCRITTURA: le istruzioni PRINT#lfn,lista-dati scri¬ 
vono nel buffer dei dati nella RAM dell'unita' 1541, 
facendo avanzare il puntatore; per trasferire il bloc¬ 
co sul dischetto si usa l'apposito comando trasmesso 
sul canale 15, con PRINT#. 

.LETTURA: il blocco viene trasferito nel buffer dei 
dati nella RAM dell'unita' 1541 dall'apposito coman¬ 
do, trasmesso sul canale 15, con PRINT#; le istru¬ 
zioni INPUT#lfn,lista-dati e GET#1fn,1ista-dati leg¬ 
gono i dati dal buffer, facendo avanzare il punta¬ 
tore. 

La posizione del puntatore nel buffer può' essere 
controllata, usando il relativo comando, trasmesso sul 
canale 15 . 


BLOCK-ALLOCATE, si scrive: 

"B-A:"dr;t;3 

registra nella BAM l'occupazione del blocco di indi¬ 
rizzo t, s. E' importante allocare un settore libero, 
altrimenti si cancella qualcosa. Per essere sicuri che 
un settore e' libero si chiede di allocarlo e subito 
dopo si analizza la situazione di errore tramite il 
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canale 15. L'errore 65: NO BLOCK, segnala che il set¬ 
tore e' già' occupato. In questo caso le due varia¬ 
bili ET e ES, fornite dall'analisi dell'errore, danno 
l'indirizzo t,s del primo settore disponibile, che 
può' essere allocato. Se, invece, ET contiene 0, que¬ 
sto significa che il dischetto e' pieno. EN contiene 0 
se l'allocazione del blocco non ha creato problemi. E' 
importante tener presente che il sistema non evita di 
allocare settori eventualmente liberi nella traccia 18 
della directory; per questa ragione devi controllare 
con il tuo programma di non andare ad occuparli. 
Infatti un'eventuale estensione della directory per 
nuove entrate potrebbe poi danneggiare le tue 
registrazioni (vedi routine ALLOCA nel Paragrafo 3.8). 
Vedi NOTA al comando seguente. 


BLOCK-FREE, Si scrive: 

"B-F:"dr ; t ; S 

libera il blocco di indirizzo t,s e aggiorna la BAM. 

NOTA: B-A e B-F lavorano anche se prima non e' stata 
eseguita una OPEN..."#", ma questo e' pericoloso, 
infatti la BAM viene riscritta sul floppy quando si 
chiude un canale per la trasmissione dei dati; se es¬ 
so non e' stato aperto si può' danneggiare il dischet¬ 
to . 


BLOCK-READ, si scrive: 

"B-R:"sa ; dr ; t ; s 

trasferisce il settore di indirizzo t,s nel buffer dei 
dati assegnato al momento della OPEN..."#" con lo 
stesso valore di "sa". Nella posizione 0 del buffer 
(primo carattere) viene trovato il valore del punta¬ 
tore (fine record) al momento della registrazione del 
blocco. Tale indicazione e' importante perche' in fa¬ 
se di lettura dal buffer con le istruzioni INPUT# o 
GET# la parola di stato ST contiene 6^ quando si 
raggiunge la posizione di fine record. 


BLOCK-WRITE, si scrive: 

"B-W:"sa ;dr ; t ; S 

scrive il contenuto del buffer dei dati, assegnato al 
momento della OPEN..."#" con lo stesso valore di "sa", 
nel blocco individuato dall'indirizzo t,s. Registra 
nella posizione 0 il valore raggiunto dal puntatore e 
predispone il puntatore sulla posizione 1. Se il bloc- 
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co viene letto con B-R, il primo carattere dispo¬ 
nibile e' quello di posizione 1, mentre, se la let¬ 
tura viene effettuata con U1, il primo carattere 
disponibile e' quello di posizione 0. 


BUFFER-POINTER, si scrive: 

"B-P:"sa ;p 

consente di spostare il puntatore all'interno del buf¬ 
fer dei dati. La posizione del puntatore e' molto 
importante, infatti le istruzioni di I/o agiscono a 
partire dalla sua posizione. Nelle due coppie di 
istruzioni che scrivono o leggono un settore abbiamo 
indicato dove si trova il puntatore dopo la loro 
esecuzione. Questo comando consente di controllare 
completamente la posizione del puntatore. 

Il sistema gestisce i file sequenziali usando i primi 
due caratteri di ogni blocco, di posizione 0 e 1, per 
concatenare tra loro i settori; quando usi i file ran- 
dom puoi mantenere questa organizzazione preoccu¬ 
pandoti tu di riempire i primi due caratteri e 
posizionando i dati a partire dalla posizione 2. In 
sostanza in un settore possono cosi' essere utiliz¬ 
zati solo 254 byte. Lo spostamento del puntatore 
consente di raggiungere qualunque campo nel record di 
un file random. 


USER1 , si scrive : 

"U1 :"sa ;dr ; t ; 3 

agisce come B-R, con la differenza che legge tutto il 
settore, senza tener conto della posizione del punta¬ 
tore al momento della scrittura. Dopo l’esecuzione di 
U1 il puntatore si trova nella posizione 0 dell buf¬ 
fer . 


a aa a ■ a a i 


USER2, si scrive: 

"U2 : "sa ; dr ; t ; s 

agisce come B-W, ma non registra 
posizione finale del puntatore. 


in posizione 0 la 


Nella descrizione delle stringhe comando noi abbiamo 
usato il formato: comando abbreviato, seguito da due 
punti, tra virgolette, e dopo i parametri separati da 
E' possibile scrivere anche tutto tra virgo- 
lette, nel caso che 1 parametri siano costanti, usan- 
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do il separatore virgola; per esempio, cosi': 

"U2 : 3,0,15,8" 

I comandi possono essere scritti anche in modo non 
abbreviato. 


GESTIONE FILE RELATIVI 

I file relativi sono formati da record logici di 
lunghezza fissa. Il DOS li gestisce ricevendo una 
stringa comando che indica il numero d'ordine del 
record logico nel file e la posizione del puntatore 
nel record logico. 

Anche in. questo caso sono necessarie 2 istruzioni 
OPEN : 

. OPENlfn , 8,15 , per aprire il canale comandi. 

. OPENIfn,8,sa,nomef + ",L,"+CHR$(LU ), per aprire il 
canale dei dati con "lfn" diverso da quello del cana¬ 
le comandi, "sa" compreso tra 2 e 14, L parametro 
richiesto per segnalare che l'apertura riguarda un fi¬ 
le relativo, seguito dalla lunghezza del record logi¬ 
co passata come stringa. La lunghezza del record logi¬ 
co e' al massimo 254. Questa OPEN produce la registra¬ 
zione di un'entrata per il file nella directory. 

Al termine delle operazioni la CLOSE del canale dei 
dati deve essere eseguita prima di quella relativa al 
canale dei comandi. 

II comando disponibile, da trasmettere con una PRINT# 
sul canale 15, prima di ogni operazione di lettura o 
scrittura relativa al buffer, serve per selezionare il 
record logico e per posizionare il puntatore al suo 
interno. 


Esso si scrive: 


"P"+CHR$(sa) + CHR$(LO) + CHR$(HI)+CHR$(BI ) 

.P, significa puntatore. 

.CHR$(sa), fornisce il numero del canale usato nella 
OPEN del canale dei dati, come stringa. 

.CHR$(LO)+CHR$(HI), forniscono il numero del record 
logico che si vuole trattare nella forma byte 
basso-byte alto. Si calcolano cosi': 
HI-INT(numerorecord/256) 

LO-numerorecord-HI#256. 

.CHR$(BI), fornisce il puntatore nel record. BI-1 per 
il primo campo, BI-N per puntare al campo che inizia 
dopo i primi N-1 caratteri. 




Dopo aver selezionato un record e una posizione, devi 
scrivere con una sola PRINT#,1ista-dati tutti i campi 
che desideri nel record. Se esegui altre PRINT#,li¬ 
sta-dati, senza riposizionarti, vai a scrivere sui 
record successivi. Un record logico può' essere scrit¬ 
to a pezzi, ma ogni volta devi riposizionarti al 
record e al campo desiderato. 

Per leggere devi posizionarti al record e al campo 
desiderato e poi eseguire la INPUT#, lista-dati rela¬ 
tiva a tutti i campi del record che ti interessano. Se 
non ripeti l'operazione di posizionamento con succes¬ 
sive INPUT# leggi il file in modo sequenziale, un 
record dopo l'altro. 

L'istruzione GET#, legge carattere per carattere a 
partire dalla posizione selezionata. 

PROGRAMMAZIONE IN LINGUAGGIO MACCHINA 

I comandi disponibili in questo gruppo sono: 

. BLOCK-EXECUTE, per eseguire un programma in 
linguaggio macchina, memorizzato in un settore del 
floppy; 

. Memor y-Wr i te, per registrare al massimo 3*J byte 
nella RAM dell'unita' 1541; 

. Meraory-Read, per leggere il contenuto di byte del¬ 
la memoria dell'unita' 1541; 

. Memory-Execute, per eseguire codice macchina a par¬ 
tire da un byte della memoria dell'unita' 1541; 

. USERi, per saltare a particolari locazioni della 
memoria dell'unita' 1541 ed eseguire routine in codi¬ 
ce macchina. 

Questi comandi, salvo BLOCK-EXECUTE, richiedono solo 
la preventiva apertura del canale 15. Il comando 
BLOCK-EXECUTE richiede anche l'apertura di un altro 
canale con OPEN#lfn,8,sa,"#" , per rendere disponibile 
un buffer per i dati. Nelle spiegazioni che seguono, 
oltre ai parametri già' noti, usiamo anche: 

.i, come numero di riferimento nella tabella dei 
salti USER. 

.adì, byte basso dell'indirizzo del blocco di memo¬ 
ria. 

.adh, byte alto dell'indirizzo del blocco di memo¬ 
ria. 

.nc, numero caratteri da trasferire, da 1 a 3^. 

.dati, istruzioni in codice macchina; devi usare la 
funzione CHR$ con argomento uguale al numero decimale 
che rappresenta il contenuto di ogni byte. 
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BLOCK-EXECUTE, 3i scrive: 

"B-E :"sa,dr,t,s 

consente di caricare in un buffer dell'unita' 15*11 il 
contenuto del blocco di indirizzo t,s, e di mandarlo 
in esecuzione, come programma in linguaggio macchina, 
a partire dalla posizione 0. Perche' questo comando 
possa essere eseguito con successo devono essere 
verificate le seguenti condizioni: 

. la routine in linguaggio macchina deve trovarsi nel 
settore specificato e la prima istruzione deve stare 
nel primo byte (posizione 0); 

. la routine deve occupare al massimo 256 byte; 

. il settore del floppy deve essere stato scritto con 
il comando U2, per non danneggiare la posizione 0; 

. la routine deve terminare logicamente con l'istru¬ 
zione RTS. 

La routine in linguaggio macchina può* lavorare 
modificando o leggendo i dati degli altri buffer del¬ 
la RAM dell'unita' 1541 . 

11 comando può' anche essere scritto senza abbrevia¬ 
zione, e i parametri, se costanti, possono stare tra 
le virgolette separati da virgola. 


Memory-Write, si scrive: 

"M-W:"ad 1 adh ; nc ; dati 

consente di registrare, al massimo 3*4 byte, nella RAM 
dell'unita' 15*41. I parametri adì e adh, che forni¬ 
scono l'indirizzo di memorizzazione, si devono calco¬ 
lare; per scrivere all'indirizzo 179*4: 
HI-INT(179*»/256)-7 
LO-1 79*4-7*256-1 79*4-1 7 92-2 

CHR$(2) + CHR$(7 ) forniscono la stringa da usare nel 
comando per "adì adh". 

Il parametro "nc", deve essere passato come numero, o 
come variabile numerica. 

I parametri "dati" sono ottenuti usando la funzione 
CHR$ avente come argomento i valori decimali dei byte 
da scrivere in memoria. Se con questo comando memo¬ 
rizzi una routine in linguaggio macchina, per eseguir¬ 
la devi usare il comando Memory-Execute. Nota la 
differenza con BLOCK-EXECUTE. 

Questo comando deve essere scritto in modo abbre¬ 
viato. 
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Memory-Read, si scrive: 

"M-R: "adì adh 

consente di leggere il contenuto del byte di indi¬ 
rizzo "adì adh" dalla memoria dell'unita' 1541. 
L'indirizzo deve essere passato con la funzione CHR$ 
dei byte LO e HI. 

Il contenuto del byte indirizzato viene reso dispo¬ 
nibile sul canale 15, per leggerlo devi eseguire GET# 
sul canale 15. Se esegui piu' GET# successive l'indi¬ 
rizzo del byte viene incrementato automaticamente. 

Per esempio: 0PEN15,8,15 

PRINT#15,"M-R:"CHR$(X)CHR$( Y) 
FORk-0TO7:GET#15,a$(k):NEXTk 
CL0SE15 

legge nella matrice- a$(k) 8 byte a partire dall'in¬ 

dirizzo di memoria 256*Y+X dell'unita' 1541. 

Il comando puo'essere scritto solo abbreviato. 


Memory-Execute, si scrive: 

"M-E:"adl adh 

consente di eseguire una routine in codice macchina 
memorizzata a partire dal byte di indirizzo "adì adh". 
Per il parametro indirizzo vale quanto detto per M-R. 
Il comando può' essere scritto solo in modo abbre¬ 
viato. 

Invece di prelevare ed eseguire una routine in codice 
macchina memorizzata su un settore del floppy, usando 
il comando BLOCK-EXECUTE, puoi usare prima il comando 
M-W per memorizzare la routine in RAM e poi M-E per 
eseguirla. 


USERi, si scrive: 


tt 

Ui" 

con 

i-0,3.4 

# • • 

. ,8,9 

oppure : 

n 

Ua" 

con 

a-J,C,D 

» • • 

. ,H,I 


consente 

di 

saltare 

a 

indirizzi fissi nella memoria 

dell 

'unita' 

1 541 . Tali 

indirizzi sono: 

U3 

0 

UC 

salto 

a 

1280 

(0500H ) 

U 4 

o 

UD 

It 

« 

1283 

(0503H) 

U5 

0 

UE 

»1 

i» 

1286 

(0506H ) 

U6 

0 

UF 

n 

» 

1 289 

(0509H) 

U7 

0 

UG 


n 

1292 

(050CH) 

U8 

0 

UH 

»i 

« 

1295 

(050FH) 

U9 

0 

UI 

ti 

« 

65530 

(FFFAH) 

UO 

0 

UJ 

li 

alla routine di accensione. 
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Puoi memorizzare a partire da questi indirizzi, se so¬ 
no RAM, routine in linguaggio macchina e andarle a 
eseguire usando i comandi Ui relativi. 


3.3 GESTIONE DEGLI ERRORI DISCO 

Quando si verifica un errore relativo ad un'ope¬ 
razione dell'unita' 1541 l'indicatore luminoso a luce 
rossa comincia a pulsare, ma non si ha una segna¬ 
lazione automatica di errore. Per rilevare gli errori 
devi inserire nei tuoi programmi una routine di erro¬ 
re, leggendo, attraverso il canale 15, i 4 dati 
seguenti : 

. EN, numero dell'errore, dato numerico; 

. EM$, messaggio di errore, dato di tipo stringa; 

. ET, numero della traccia interessata, dato nume¬ 
rico ; 

. ES, numero del settore interessato, dato nume¬ 
rico. 

Le 4 variabili citate non sono riservate, puoi usare 
quelle che vuoi, le nostre sono abbastanza mnemo¬ 
niche. Puoi anche usare variabili di tipo stringa per 
tutti i dati. 

Supponendo che all'inizio del programma sia stata 
eseguita l'istruzione: OPEN15,8,15, la routine di 
errore può' avere questa forma: 

5000 INPUT#15,EN,EM$,ET,ES 
5002 IFEN-0 THEN RETURN 
5004 PRINT"ERRORE: ";EN , EM$ , ET , ES 
5006 STOP 

essa lascia aperto il canale 15. Ti raccomandiamo di 
eseguire il controllo degli errori dopo ogni opera¬ 
zione disco. 

Un altro modo per controllare se ha avuto luogo un 
errore e' quello di leggere le due variabili riser¬ 
vate del BASIC: DS e DS$, dopo l'esecuzione di ogni 
operazione disco. In DS trovi il numero del messaggio 
di errore, in DS$ trovi il numero e il messaggio di 
errore, il numero della traccia e il numero del setto¬ 
re. Con DS$ ottieni le stesse informazioni fornite 
dalla routine di errore, solo che esse si trovano in 
una sola stringa. Per analizzare o stampare il conte¬ 
nuto di queste due variabili riservate non e' neces¬ 
sario il canale 15; esse sono automaticamente dispo¬ 
nibili per il BASIC. 

L'esecuzione della routine di errore o l'analisi del- 
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le variabili DS e DS$ hanno l'effetto di spegnere 
l'indicatore di errore se esso e' acceso. 

Non devi confondere le segnalazioni di errore, rela¬ 
tive ad operazioni disco, fornite dal sistema opera¬ 
tivo del COMMODORE 16, con quelle del DOS. Se, per 
esempio, esegui un'istruzione PRINT# su un file non 
aperto, la segnalazione di errore dipende dal fatto 
che il COMMODORE 16 non ha trovato aperto il file nel¬ 
la tabella di gestione, il DOS non c'entra. 

Il codice di errore 00 significa che l'operazione e' 
andata bene; il codice 01 che e* stato cancellato un 
file. 

Inoltre, dopo ogni operazione disco può' essere 
analizzata la variabile riservata ST; essa può' avere 
i seguenti valori: 

. 0 per tutto bene 

. 1 per scrittura con tempizzazione errata 

. 2 per lettura con tempizzazione errata 

. 64 per segnalazione di EOF (End Of File) 

. 128 per apparecchiatura non presente 
e quindi non fornisce informazioni complete sull'an¬ 
damento dell'operazione. 


MESSAGGI ERRORE DOS 


20 READ ERROR 

il controllore del disco non riesce a trovare la 
testata del settore richiesto, o l'indirizzo non e' 
valido o il floppy e' rovinato. 


21 READ ERROR 

il controllore del disco non riesce a trovare il 
carattere di sincronizzazione sulla traccia richie¬ 
sta. Può' essersi verificato un errore di allinea¬ 
mento, un errore hardware o il floppy non essere 
formattato. 


22 READ ERROR 

per un comando DOS di tipo BLOCK non viene trovato il 
settore; può' essere invalido l'indirizzo o danneg¬ 
giato il floppy. 
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23 READ ERROR 

3 1 verifica un errore di CHECKSUM dopo la lettura di 
un blocco, cioè' i controlli sui caratteri letti non 
tornano; può' dipendere da una messa a terra difet¬ 
tosa . 


24 READ ERROR 

si verifica un errore hardware, può' dipendere da mes¬ 
sa a terra difettosa. 


25 WRITE ERROR 

i dati registrati non corrispondono al contenuto del 
buffer. 


26 WRITE PROTECT ON 

tentativo di scrivere su un floppy con protezione, 
cioè’ con finestrella laterale chiusa. 


27 READ ERROR 

errore nella lettura di una testata, può' dipendere da 
messa a terra difettosa. 


28 WRITE ERROR 

non viene trovato, dopo la scrittura di un blocco, il 
carattere di sincronizzazione del blocco seguente. Il 
floppy può' essere rovinato o non formattato o verifi¬ 
carsi un errore hardware. 


29 DISK ID MISMATCH 

non riesce a identificare un floppy, che può' essere 
non formattato o rovinato. 


30 SXNTAX ERROR 

il DOS non riesce a interpretare un comando ricevuto, 
possono essere errati o mancare alcuni parametri. 


31 SYNTAX ERROR 

il DOS non riconosce un comando, per esempio esso ini¬ 
zia con uno spazio. 
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32 SYNTAX ERROR 

comando troppo lungo, piu' di 58 caratteri. 


33 SYNTAX ERROR 

e* stato usato un nome non valido. 


34 SYNTAX ERROR 

il DOS non riconosce il nome di un file. 


39 SYNTAX ERROR 

non viene riconosciuto un comando inviato sul canale 
15 . 


50 RECORD NOT PRESENT 

tentativo di leggere un file dopo aver raggiunto EOF. 
Per i file relativi si verifica questo errore nella 
fase di preestensione e deve essere ignorato. 


51 OVERFLOW IN RECORD 

si tenta di scrivere in un blocco piu’ caratteri di 
quelli consentiti. 


52 FILE T00 LARGE 

si scrivono piu' record di quelli previsti su un file 
relativo. 


60 WRITE FILE OPEN 

si apre in lettura un file già' aperto per scrivere e 
non chiuso. 


61 FILE NOT OPEN 

si tenta un'operazione su un file non aperto. 


62 FILE NOT FOUND 

il file richiesto non viene trovato. 


101 



















63 FILE EXISTS 

si cerca di creare un file che esiste già’ e non si e' 
usato il carattere 


64 FILE TYPE MISMATCH 

il tipo di operazione fa riferimento a un file di ti¬ 
po diverso da quello esistente. 


65 NO BLOCK 

indica che il blocco richiesto con B-A e' già' occu¬ 
pato, ma fornisce in ET e ES l'indirizzo del primo 
blocco libero. ET e ES sono a zero se il floppy e' 
pieno. 


66 ILLEGAL TRACK AND SECTOR 

si tenta di accedere a settori che non esistono. 


67 ILLEGAL SYSTEM T OR S 
traccia o settore non consentiti. 


70 NO CHANNEL 

il canale richiesto e' occupato o non ci sono canali 
liberi . 


71 DIRECTORY ERROR 

i controlli non consentono di creare una BAM valida. 
Probabilmente il dischetto non e' ricuperabile. 


72 DISK FULL 

indica o che il dischetto e' pieno o che sono esau¬ 
rite le 144 entrate nella directory. 


73 DOS MISMATCH 

le versioni del DOS non sono compatibili in scrit¬ 
tura. Si tenta di scrivere su un floppy formattato con 
un'altra versione. 
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74 DRIVE NOT READY 

non c'e' il floppy oppure esso non e' stato formattato 
o 11 drive e' guasto. 


3.4 FILE DI PROGRAMMA 

I programmi sono memorizzati sul dischetto come file 
di tipo PRG. Nella relativa entrata della directory si 
trovano tutte le informazioni necessarie per reperire 
il file, e cioè* l'indirizzo di traccia e settore del 
primo blocco, il numero dei blocchi occupati, e, se 
necessario, l'indirizzo del primo blocco per la 
rimemorizzazione con il carattere Per analizzare 
il contenuto della directory puoi usare il programma 
DCOMEFS, riportato nel Paragrafo 3.8. I blocchi nel 
quali viene registrato un programma sono concatenati 
tra loro tramite 1 primi 2 caratteri, che recano il 
numero della traccia e del settore successivo. L'ul¬ 
timo blocco reca 0 per numero di traccia e il valore 
del puntatore all'ultimo byte occupato al posto del 
numero del settore. Per vedere come il programma vie¬ 
ne conservato sul disco puoi usare il programma 
TRAC/SET, riportato nel Paragrafo 3.8; solo che la 
lettura del contenuto dei blocchi non e' semplice, da¬ 
to che si vedono i numeri in esadecimale. Se te ne 
occupi troverai che il programma termina con 2 byte 
contenenti tutti bit 0, dopo il byte a 0 che chiude 
l'ultima istruzione. 

Per memorizzare un programma sul floppy sono dispo¬ 
nibili le istruzioni SAVE e DSAVE, già' esaminate nel 
precedente volume. Queste istruzioni possono essere 
scritte anche facendo precedere al nome del programma 
i caratteri oppure "@dr:", con l'effetto di 
cancellare la precedente versione del programma. Non 
ti consigliamo di procedere cosi'; infatti a volte 
operazioni di questo tipo danneggiano la BAM. Se devi 
r imemorizzare un programma e' preferibile prima 
cancellarlo con il comando SCRATCH, usato in una del¬ 
le due versioni disponibili, e poi memorizzarlo con 
SAVE, ma senza usare il carattere di cancellazione 


Dopo la memorizzazione di un programma e' bene verifi¬ 
care con VERIFY la bontà' della registrazione. Puoi 
anche richiamare con il comando DIRECTORY la directory 





sul video; questo .comando e' molto comodo dal momento 
che non cancella il contenuto della memoria e il 
programma presente resta invariato. Se invece carichi 
e listi la directory con: 

0PEN15,8,15 :LOAD"$",8 : LIST il programma viene cancel¬ 
lato. 

Per caricare in memoria un programma puoi usare i 
comandi DLOAD e LOAD. Se li usi in immediato il 
programma viene solo caricato, mentre se li usi da 
programma, ottieni anche la partenza, come se venisse 
eseguito: GOTO prima-linea. In questo caso ottieni il 
concatenamento dei programmi, ma il sistema non mette 
a posto il puntatore all'inizio della zona variabili, 
che varia in dipendenza dalla lunghezza dei program¬ 
mi . Per operare correttamente il programma conca¬ 
tenato deve avere una prima istruzione che sistema ta¬ 
li puntatori, cosi': 

0 POKE 45,PEEK(157):P0KE 46 , PEEK(158 ) :CLR . 

Con opportuni accorgimenti e' possibile eseguire 
programmi concatenati che abbiano le variabili in 
comune. Basta che il primo programma sposti il punta¬ 
tore all’inizio delle variabili in posizione tale che 
vada bene per il programma piu' lungo e che tutti 1 
programmi usino le stesse variabili con lo stesso 
significato. 

Nel precedente volume abbiamo preso in esame il signi¬ 
ficato del flag che può' essere aggiunto in fondo al¬ 
le istruzioni per memorizzare e caricare i programmi e 
influisce sulla loro rilocabl1 ita' in memoria. 


3.5 FILE SEQUENZIALI DI DATI 

I file sequenziali di dati su disco hanno le stesse 
caratteristiche di quelli su nastro; l'unica diffe¬ 
renza rilevante consiste nel fatto che e' possibile 
aggiornare un file senza doverlo trascrivere tutto in 
memoria (vedi Paragrafo 11.6 del primo volume), ma 
creando un nuovo file sullo stesso dischetto, con no¬ 
me diverso, nel quale trascrivere e aggiornare record 
dopo record il vecchio file. Al termine dell'aggior¬ 
namento il vecchio file può' essere cancellato, e al 
nuovo file può' essere assegnato il vecchio nome con 
il comando RENAME. 

Riepiloghiamo le caratteristiche di questo tipo di 
file: 



. record fisico di dimensioni pari a un settore, con 
i primi due caratteri usati per il concatenamento dei 
settori e gli altri 254 per i dati. La gestione del 
record fisico risulta trasparente per l'utente che 
lavora a livello di record logico. Alla fine del file 
viene riconosciuta la condizione EOF; essa può' esse¬ 
re controllata tramite la parola di stato ST, le 
variabili riservate DS o DS$, la routine di errore 
leggendo EN, EM$, ET e ES 3ul canale 15. 

. record logico di lunghezza fissa o variabile, ma 
con lo stesso numero di campi, se si desidera poter 
leggere a livello di record. Tieni presente che se 
scrivi un file sequenziale con record logici tali che 
l'ultimo blocco fisico contiene 254 caratteri, cioè' 
e' completo al momento della chiusura, viene occupato 
un settore in piu' solo in modo apparente; cioè' tale 
settore manca nel computo dei blocchi liberi e occu¬ 
pati. Se esegui il comando COLLECT, o VALIDATE, la 
directory torna in ordine e il file può' essere letto 
senza problemi. 

. campi di lunghezza fissa o variabile, tenendo 
presenti le limitazioni imposte dal comando INPUT#, 
che non può' leggere piu' di 88 caratteri tra due 
CHR$(13) (RETURN). Inoltre va tenuto presente che, se 
il separatore (registrato) tra i campi e' la virgola, 
essi devono essere letti tutti da una sola istruzione 
INPUT#, che lavora sui dati compresi tra due CHR$(13). 
Una variabile che contiene solo spazi da' luogo a un 
campo nullo, cioè' due caratteri separatori vicini, 
che in fase di lettura sono riconosciuti come uno 
solo, e quindi viene perso un campo. 

. in fase di scrittura i caratteri separatori tra i 
dati della lista agiscono come per la cassetta: il 
punto e virgola non aggiunge spazi, la virgola si. 

. al momento della OPEN per scrivere viene creata la 
nuova entrata nella directory; essa viene completata 
al momento della CLOSE. Se il file non viene chiuso, 
l'entrata rimane in stato irregolare e il file non 
può' essere utilizzato. 

. non e' necessario aprire il canale 15, se non vuoi 
gestire gli errori tramite di esso, ma ti raccoman¬ 
diamo di farlo. Infatti e' buona norma eseguire la 
routine di errore dopo ogni operazione disco. 

Le istruzioni BASIC disponibili sono: 

OPENlfn,dn,sa,"dr:nomef,tipo,modo" 



per aprile il file. I parametri possono essere costan¬ 
ti e variabili : 

. lfn, numero logico del file da 0 a 127. 

. dn, 8 per la prima unita*. 

. sa, canale per i dati da 2 a 11). 

. dr, numero drive, 0 per default, può' essere omes¬ 
so . 

. nomef, nome del file, massimo 16 caratteri. 

. tipo, S, che significa sequenziale. 

. modo, W per scrivere e R per leggere. 

Puoi usare per la OPEN per scrivere questo formato: 

OPENlfn,dn,sa,"@dr:nomef,S,W" 
ottenendo di cancellare, se esiste, un file con lo 
stesso nome. Ti consigliamo di non usare questo forma¬ 
to, ma di cancellare il vecchio file con il comando 
SCRATCH e poi di aprirlo per scrivere. 

Il DOS interpreta il comando e predispone il messag¬ 
gio di errore in seguito all'esecuzione. 

Possono essere aperti contemporaneamente fino a 3 fi¬ 
le sequenziali su un floppy; il DOS li distingue in 
base al valore di "lfn". 

PRINTtflfn,lista-dati 

per scrivere i dati sul file aperto per scrivere, con 
numero logico "lfn". Non ripetiamo le considerazioni 
su lista-dati, già’ viste all'inizio. 

INPUT#lfn.lista-dati 

per leggere nelle variabili di lista-dati dal file 
aperto per leggere, con lo stesso valore di "lfn". Il 
tipo delle variabili deve concordare con il tipo dei 
dati che si leggono, altrimenti si ha errore. 

GET#lfn,lista-dati 

per leggere i dati carattere per carattere dal file 
aperto per leggere, con lo stesso valore di "lfn". E' 
meglio che lista-dati contenga solo variabili strin¬ 
ga. 


CLOSElfn 

per chiudere il file aperto con numero logico "lfn". 
La chiusura di un file aperto per scrivere fa aggiun¬ 
gere la segnalazione di EOF e provoca l'aggiornamento 
della directory e della BAM sul floppy. Per tutti i 



tipi di file la CLOSE provoca l'aggiornamento in memo¬ 
ria della tabella di gestione dei file. 

Come esempio abbiamo realizzato il programma SEQDISCO. 
Esso gestisce un archivio sequenziale di dati su 
disco, consentendo le seguenti operazioni: 

.1) creazione ex-novo del file. I record devono esse¬ 
re forniti in ordine in base ai primi due campi, l'oi— 
dine viene controllato e non accetta record con i pri¬ 
mi due campi uguali. 

.2) lista completa del file su stampante, nell'or-> 
dine di registrazione dei record. 

•3) aggiornamento del file, cioè': 

. inserimento nuovi record, che devono essere 
forniti in ordine. 

. modifica record esistenti, procedendo nell'or¬ 
dine di registrazione dei record. 

. cancellazione record, procedendo nell'ordine di 
registrazione dei record. 

L'archivio viene mantenuto in ordine crescente in ba¬ 
se ai primi due campi di ogni record, ma senza ricor¬ 
rere a ordinamento; quindi i record devono essere 
caricati in questo ordine e il programma scarta quel¬ 
li fuori ordine. 

Il programma e' stato scritto ricorrendo alla tecnica 
dei sottoprogrammi; in conseguenza esso e' facilmente 
modificabile per adattarlo alle proprie esigenze. 

Noi abbiamo lavorato con un record logico di lunghez¬ 
za variabile, ma formato da un numero fisso di campi, 
5 per ogni record, ognuno di lunghezza variabile. I 
campi sono separati tra loro dal carattere CHR$(13); 
questo ci consente di avere per ogni campo la massima 
lunghezza possibile, cioè' 88 caratteri. La gestione 
dell’archivio avviene a livello record, trattando sem¬ 
pre lo stesso numero di campi; in conseguenza e' 
necessario che ogni record abbia tutti i campi stabi¬ 
liti. Per mantenere questa caratteristica, quando un 
campo manca esso viene registrato con il carattere 
CHR$(160 ), che corrisponde a SHIFT-spazio, e che in 
fase di lettura non da' luogo a un campo vuoto, come 
succederebbe con il carattere spazio normale. 

Nella Figura 3.5 riportiamo uno schema a blocchi del¬ 
la fase di aggiornamento del file, che risulta la piu' 
complicata. Durante questa fase viene creato un file 
temporaneo, di nome TEMP, sul quale viene aggiornato 
il file vecchio; alla fine il file vecchio viene 
cancellato e al file TEMP viene cambiato il nome, 
assegnandogli quello del vecchio file. 



AGGIORNAMENTO 


V J 



Figura 3.5 Diagramma a blocchi dell'aggiornamento 


Il programma non presenta un menu' iniziale, ma pone 
successivamente domande sulle operazioni che si 
vogliono fare; a tali domande devi rispondere con S 
per SI e N per NO. Per uscire dalla richiesta di un 
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record devi rispondere con il carattere asterisco " * « 
al primo campo. Se manca un campo puoi rispondere so¬ 
lo con RETURN, provvede 11 programma a sostiuirlo con 
il carattere CHR$(160) (SHIFT-spazio). Ogni fase ter¬ 
mina con lo STOP; se vuoi proseguire devi eseguire n 
comando RUN. All'inizio di ogni fase viene chiesto ii 
nome del file. Il file può' essere lungo a piacere, 
compatibilmente allo spazio disponibile sul floppy. 
Nella fase di lista i dati sono presentati ponendo su 
una riga i primi due campi e sull'altra gli altri 3 , 
inoltre non viene usato un conta righe per il cambio 
del foglio. 


REM SEGOISCO 

REM CREAZIONE E GESTIONE FILE SEQUENZIALE 
REM *** 

REM PARAMETRI DI STAMPA-APERTURA CANALE 15 
NF=4:PR=4: OPEN15,8,15 :G0SUB397 
RFM *** 

REM COSTANTI E VARIABILI 
NC=5:CH$=CHR$<13 > =SP$=" 

DIMI*(NC),I1$<NC >,D$<NC > 

DATA "CAMPO1 ","CAMP02 ”,"CAMP03 " 

DATA "CAMP04 ","CAMP05 " 

FORK=1TONO^ READD* <K> =NEXTK 

PPM 4-ée* 

REM SC ELTA OPERAZIONE 

PRINT"73WMCRE AZIONE FILE S/N "; = INPUTR* 

I FR#0 " S " THEN71 
REM *** 

REM CREAZIONE FILE 

G0SLIB297 = G0SUB281 : G0SUB303 

PRINT#15, "IO" = REM INIZIALIZZAZIONE 

REM $$$ 

REM APERTURA FILE PER SCRIVERE-CANALE 2 
0PEN2,8,2."0 :"+HFT+",S,W" :G0SUB397 
LC*="":LN*=""=REM VECCHI CAMPI 1 E 2 
G0SUB233 : REM RICHIESTA DATI 
IFSW=0THEN61 
CL0SE2 CL0SE15 

PRINT"«FINITO CARICAMENTO FILE“ STOP 

REM *** 

REM CONTROLLO ORDINE RECORD 
IFI* <1>>LC*THEN67 
IFI $ < 1 =LC*THENIFI$ C 2> >LN$THEN67 
COSI IB289 : G0T049 
LC$=I$t1>:LN*=I*<2> 

G0SUB267 : GLiT049 
REM *** 



73 REM STAMPO FILE 

75 PRINT'TIMWSTRMPO FILE S/N";■INPUTR* 

77 I FR*0" S " THEN103 
73 GQSUB237 = G0SUB281 

81 PRINT#15,"10"■REM INIZIALIZZOZIONE 
83 GOSUB303•G0SUB389 

85 OPENNF, PR : PR I NT #NF .."LI STO ORCHIV10 " NF* 

87 PRINT#HF 
89 REM *** 

91 REM LETTURA E STAMPO RECORD 
93 G0SUB259 = PR INT#NF, I *< 1 > ; SP*; I*<2> 

35 F0RK=3T0NC = PR I NTttNF, I *<K > SP# ; = NEXTK 
97 PR I NT#NF ' PR I NT#NF : IFFS064THEN91 
99 CL0SE3=CLOSENF:CLOSE15 
101 PRINT"WFINITO LISTA" : STOP 
103 REM **■¥ 

105 REM AGGIORNAMENTO FILE 

107 FF=0 ; PRINT"MAGGIORNAMENTO FILE" 

189 G0SUB297■G0SUB281 

111 PRINT#15,"10": REM INIZIALIZZAZIONE 
11 3 GOSUB303^G0SUB389 
115 REM **# 

117 REM APERTURA FILE TEMPORANEO PER SCRIVERE 
113 OPEH2,8,2 .• " O TEMP, S, W " • G0SUB337 
121 LC#=“" : LN#="" 

123 PRINT"ZWftlTIPO DI VARIAZIONE'" 

125 PRINT"1=IUSERIMENTO"'FRINT"2=VARIAZIONE" 

127 PRINT"3=CANCELLAZIONE" 

123 INPUTR'IFR<10RR>3THEN129 

131 FL=0 : REM 1 SE IJLT. REC. LETTO DA SCRIVERE 
133 FF=0'REM 1 SE FINITO FILE INPUT 
135 ONRGOTO137,185,289 ' REM SCELTA OPERAZIONE 
137 REM *** 

139 REM INSERIMENTO RECORD 
141 G0SUB233'IFSW=8THEN155 
143 G0SUB359 = CL0SE3 ' CL0SE2 
145 F'RI NT "SFINITO AGGIORNAMENTO" 

147 REM *** 

149 REM SISTEMAZIONE FILE SU DISCO 
151 PRINT#15,"S0 : "+NF# 

153 PRINT#15,“R8'"+NF#+"=TEMP" 'CLOSE 15 = STOP 
155 IFI#<n>LC#THEN175'REM INSERISCE 
157 RFM *** 

159 REM DATI IH DISORDINE 

161 IFI# C1><LC#THENG0SIJB289 ' GOTO137 

163 REM *** 

165 REM PRIMO CAMPO UGUALE 

167 IFI#<2>>LN#THEN175 

163 IFITC2 -'<LN#THEHG0SUB289 GOTO 137 

171 G0SUB275'GOTO137 

173 REM *** 

175 REM DATI IN ORDINE 

177 LC#= I # < 1 > : LN#= I # < 2 > ' GOSUB317 

179 IFI#< 1 )OI 1#< 11THEN183 

181 IFI#<2>=I1#<2>THEN00SUB275'GOTO137 

183 G0SUB267'GOTO137 

185 REM *** 

187 REM MODIFICA RECORD 
189 G0SUB233'IFSW=0THEH193 
191 GOTO143 

193 IFI#<1>>LC#THEN199 

195 IFI *C1>=LC*THENIFI#<2 >>LN#THEN199 

197 G0SUB289'GOTO185 

199 LC#=I # < 1 > 'LN*=I#<2 > 'G0SUB373 
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£01 IFFL=1ANDFF=0THEN185 

203 IFFL=1flHDFF=1THENFL=0: GOTO143 

205 G0SUB267 : IFFF=1THEN143 

207 GOTO185 

209 REM **# 

211 REM CANCELLAZIONE RECORD 

213 PRINTD$d>; ^ INPUTI*<1> = IFI*< 1 >="*"THEN143 

215 PRINTD*<2>;=INPUTI*<2> ; IFI$<1»LC*THEN221 

217 IFI*<1>=LC*THENIFI$<2>>LN$THEN221 

219 G0SUB289=GOTO209 

221 LC*=I* <1> = LN*=I* < 2 > =G0SUB373 

223 IFFF=1fiNDFL=0THEN143 

225 GOT0209 

227 REM *** 

229 REM SOTTOPROGRAMMI 
231 REM *** 

233 REM RICHIESTA DATI 

£35 SW=0 : REM 1 SE FINITI DATI 

237 FRINT"CI 1 " ; D$< 1 :■ ; = INPUTI * (. 1 > 

239 IFI$< 1 > = "*•• THENSN=1 = RETURN 

241 F0RK=2T0NC = I*<K>=CHR*< 160:> •• NEXTK 

243 F0RK=2T0NC=FRINTK;D*<K>; =INPUTI*<K>:NEXTK 

245 PRINT"«CONFERMI S/N"; =INPUTR* 

247 IFR*="S"THENRETURH 

249 PRINT "QUALE CAMPO : INPUT R 

251 IFR< 10RR>NCTHENPRINT"n" ; =G0T0249 

253 PRINTD*<R> ; •• I*<R> =CHR*< 160> = INPUT I*<R> 

251 =; PRI NT "IT* * 

257 FÒRK= 1 TONO •• PR I NTK ; D$ <K > ; 1 1 <K > ‘ NEXTK : G0T0245 
259 REM LETTURA RECORD DA DISCO 
261 F0RK=1T0NC =INPUT#3,1*00:FS=ST 
263 G0SUB397:NEXTK = RETURN 
265 REM #** 

267 REM SCRITTURA NUOVO RECORD 
269 FORK=1TONC ; PRINT#2,I * <K>;CHT; 

271 G0SUB397:NEXTK = RETURN 
'”'73 REM 

275 REM MESSAGGIO CAMPI 1 E 2 UGUALI 

277 PRINT"DATI CAMPI 1 E 2 UGUALI"=G0SUB281=RETURN 

279 REM *** 

281 REM ATTESA TASTO 
£83 GETA*:IFAT=""THEN281 
285 RETURN 
287 REM 

289 REM MESSAGGIO FUORI ORDINE 
291 PRINT"«DATI FUORI ORDINE"•G0SUB281 
£93 RETURN 
295 REM *** 

297 REM RICHIESTA DISCO DATI 

299 PRINT" «MONTA DISCO DATI": RETURN 

Ol'l 1 OCTM *** 

303 REM RICHIESTA NOME FILE 
305 INPUT"HOME FILE ";NF$=RETURN 
307 REM *** 

309 REM APERTURA FILE PER LEGGERE-CANALE 3 
311 0PEN3 ,8 .• 3 .• " 6 ; " +HFT+ " .. S , R" : G0SUB397 
313 RETURN 

-•1 e; prw 

317 REM LEGGE RECORD E SCRIVE FINO AL 

319 REM RECORD PRECEDENTE SU TEMP 

321 IFFF=1ANDFL=0THENRETURN 

323 IFFLO0THEN329 

325 G0SUB343 

327 IFFS=64THEHFF=1 



323 IF11 * ■:: 1 > < I $ < 1 > THEN335 

331 IF11 * C1> = I$<1> THEHIF11$ < 2 ><I* <2 >THEM335 

333 FL=1•RETURN 

335 G0SUB351 : FL=0 

337 I FFF= 1 TFIENRETURN 

333 G0T0325 

341 REM *** 

343 REM LETTURA RECORD 
345 F0RK=1T0MC: INPUT#3,I1$<K> =FS=ST 
347 G0SUB397:NEXTK = RETURN 
343 REM *** 

351 REM SCRITTURA RECORD 
353 FORK=1TONO :PRINT#2, IliCK> 

355 G0SUB397:NEXTK=RETURN 
357 REM *** 

359 REM SCRIVE FILE TEMP FINO ALLA FINE 

361 REM DEL FILE DI INPUT 

363 I FFF= 1 ANDFL=OTHENRETIJRN 

365 I FFL OOTHEHFL=0 : G0SUB351 = G0T0353 

367 G0SUB343 = G0SUB351 = IFFS=64THENFF=1; RETURN 

369 G0T0367 

371 RÈM 

373 REM COPIA FILE FINO AL RECORD CERCATO 

375 IFFF=1ANDFL=0THEN388 

377 IFFLO0THEN381 

373 G0SIJB343 = I FFS=64THENFF= 1 

381 IFIltClKIJU > THEN3S9 

383 IFI1*<1>»I*<1>THENIFI1 *<2><I*<2>THEH383 
385 IF11 $< 1 > = I $C1 > AND11$ < 2 > = I$ < 2 > THENFL=0■ RETURN 

387 FL=1 

388 PR INT"NON TROVATO'* = G0SUB281 = RETURN 

389 G0SUB351 

391 IFFF=1THEN388 
393 G0T0379 
395 REM *** 

397 REM ROUTINE ERRORE 
399 INPUT#15,EN,EM$,ET,ES 
401 IFEN=0THEN RETURN 
403 PRINT"ERRORE DISCO" 

405 PRINTEN, EM$ .. ET > ES : STOP 


ELENCO VARIABILI 

.NF, 4, numero logico file di stampa. 

.PR, 4, dn della periferica di stampa. 

.NC, 5, numero campi del record. 

. CH$, CHR$(13), carattere separatore RETURN. 

,SP$, 4 spazi . 

.I$(NC), vettore per leggere i dati dalla tastiera. 
•I1$(NC), vettore per leggere da disco il record. 
.D$(NC), vettore per le descrizioni dei campi, conte¬ 
nute nelle linee DATA. 

.R$, variabile per risposte. 

.LC$, primo campo vecchio. 

.LN$, secondo campo vecchio. 

.FS, memorizzazione parola di stato ST. 

.EN, EM$, ET, ES, variabili per controllo errori. 
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.SW, switch per controllare l'ingresso dei dati: 0 
per si dati, 1 per finiti i dati. 

•FF, switch per fine file di input, 1 per finito. 

.FL, switch per utilizzo ultimo record letto: 0 
utilizzato, 1 non utilizzato. 

.R, K, variabili per il controllo dei cicli. 

Per adattare il programma alle tue esigenze puoi fare 
le seguenti modifiche: 

•PR-3 per listare sul video. 

•NC per passare da 5 al numero di campi desiderato. 

•linee DATA 19/21, per modificare le diciture dei 
campi. 

.linee da 85 a 103 per ottenere un diverso formato di 
stampa. 

COMMENTO A SEQDISCO 

. 1 / 23 : definizione costanti e variabili, apertura 
canale 15, che viene chiuso alla fine di ogni fase. 

•25/55: creazione file ex-novo. 

.57/69: controllo ordine record nella fase di crea¬ 
zione ex-novo. 

.71/103: stampa file. 

.105/121: inizio fase di aggiornamento, apertura fi¬ 
le temporaneo. 

. 123 / 135 : scelta tipo aggiornamento, azzeramento 

switch. 

.137/145: fase inserimento nuovi record. 

.147/155: sistemazione file temporaneo per fine 
aggiornamento. 

. 157 / 171 : controllo ordine dei record e uguaglianza 
primi 2 campi nella fase di inserimento. 

.173/183: inserimento se dati in ordine. 

. 185 / 207 : fase aggiornamento record per modifiche. 

.209/225: fase cancellazione record. 

. 227 / 263 : inizio sezione per i sottoprogrammi. 

Richiesta dati da tastiera. 

.265/271: scrittura nuovo record. 

.273/277: messaggio per campi chiave uguali. 

.279/285: attesa tasto per proseguire. 

.287/293: messaggio record fuori ordine. 

.295/299: richiesta disco dati. 

.301/305: richiesta nome file. 

.307/313: apertura file per leggere. 

• 315 / 339 : avanzamento e copiatura file fino al record 
precedente, per la fase di modifica record. 

.341/347: lettura record da disco. 

.349/355: scrittura record su TEMP. 




.357/369: finisce di ricopiare file su TEMP. 

•371/393: copia file fino al record cercato, per la 
fase di cancellazione. 

.395/405: routine di controllo errore disco. 


3.6 FILE RANDOM DI DATI 

Questa denominazione di file e' abbastanza impropria, 
ma ormai in uso; per questa ragione anche noi chia¬ 
miamo randon questi file, che in realtà' sono ad 
accesso diretto. Essi sono gestiti con il gruppo dei 
comandi DOS per l'accesso diretto, che non comportano 
una registrazione nella directory del disco. La cosa 
non e' consigliabile, dal momento che su un floppy che 
contenga file random non si possono eseguire i coman¬ 
di VALIDATE e COLLECT che controllano e sistemano la 
BAM e la directory. Noi per completare l'argomento 
presentiamo un programma che gestisce in modo RANDOM 
un archivio di dati, in modo pericoloso, cioè' senza 
registrazione nella BAM; e un secondo programma che 
gestisce un file in modo RANDOM-USER, con l'accor¬ 
gimento di preparare preventivamente il floppy in mo¬ 
do che il file sia anche registrato nella directory. 
In questo secondo caso sono eseguibili sul floppy 
anche i comandi VALIDATE e COLLECT. 

Nell'organizzazione diretta il file viene gestito a 
livello di record fisico, cioè' di settore, conoscen¬ 
done l'indirizzo t,s. 

Il record logico deve essere definito con tutti i suoi 
campi e adattato alla struttura fisica. Senza adden¬ 
trarsi in tecniche di programmazione piuttosto 
sofisticate, il modo migliore per gestire questo tipo 
di file e' di definire un record logico di lunghezza 
fissa, formato da un numero fisso di campi di lunghez¬ 
za fissa, in modo tale che risulti di lunghezza multi¬ 
pla o sottomultipla di un settore, considerato di 254 
caratteri. Preferiamo usare solo 254 caratteri in un 
settore per poter mantenere l'uso dei primi 2 byte per 
il concatenamento tra i settori, come*» per gli altri 
tipi di file. 

Dobbiamo ora affrontare un altro argomento relativo 
all'organizzazione dei file, cioè' la possibilità' di 
reperire rapidamente il record voluto. Nell'esempio 
relativo ai file sequenziali abbiamo preparato il fi¬ 
le mantenendo i record in ordine in base a due campi 
chiave, pero' la ricerca poteva avvenire solo leggen- 


1 1 4 



do 1 record in sequenza. In questo caso possiamo acce¬ 
dere al record desiderato, se conosciamo l'indirizzo 
t,s. Come facciamo a sapere, per esempio in un archi¬ 
vio relativo a una biblioteca, che il libro ARITMETICA 
PRATICA dell'autore PIPPO si trova in un determinato 
settore? Potremmo avere una lista su carta che ci da' 
queste informazioni, cioè' un indice da consultare 
manualmente prima di una ricerca. Ma, dal momento che 
abbiamo un calcolatore, e' meglio organizzarci per 
fargli svolgere tutto il lavoro in modo automatico. 

In conseguenza quando creiamo un file ad accesso 
diretto, fisico per i file random, logico per i file 
relativi che trattiamo nel prossimo paragrafo, dobbia¬ 
mo creare anche un indice sequenziale, organizzato in 
base a uno o piu' campi di ordinamento, che ci forni¬ 
sca gli indirizzi, fisici o logici, necessari per 
reperire un record. 

Il file INDICE, che e' un normale file sequenziale, 
deve essere abbastanza corto se possibile. L'altro 
file, quello diretto, si chiama PRINCIPALE. La situa¬ 
zione ideale e' che sia possibile caricare in memoria 
il file indice prima di iniziare l'elaborazione del 
file principale; in tale modo le operazioni di ricer¬ 
ca nell'indice risultano molto veloci. Se questo non 
e' possibile, il file indice può' venir letto a bloc¬ 
chi, andando a leggere i blocchi successivi quando 
servono. Comunque la lettura del file indice risulta 
piu' veloce di quanto sarebbe il trattamento di un fi-' 
le principale, cfon tanti campi, di tipo sequenziale. 

Nel Paragrafo 3.2, nella sezione GESTIONE DIRETTA, so¬ 
no riportati i comandi per il DOS. Il trattamento dei 
file random impegna 2 canali, il canale 15, per 1 
comandi, e un canale, da 2 a IH per i dati. Nel buf¬ 
fer dei dati agiscono le normali istruzioni PRINT#, 
INPUT# e GET#. 

Nel seguito riportiamo due esempi di programmi per 
gestire un archivio random normale e uno organizzato 
in modo da proteggere le registrazioni. Nei commenti 
trattiamo completamente l'argomento. 

Ti facciamo notare che i file random, dopo l'aper¬ 
tura, possono essere letti e scritti, mescolando le 
due operazioni . 

ARCHIVIO RANDOM 

Abbiamo preparato il programma ARCHIRANDOM per gesti¬ 
re un file RANDOM con indice. Le funzioni del program-' 
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ma sono le seguenti: 

.1) crea sul floppy un archivio RANDOM, che non ha un 
nome registrato nella directory, e il file indice 
INDI1, usando come campi chiave i primi due campi del 
record logico, e ordinando l'indice in ordine crescen¬ 
te in base ai campi chiave. 

.2) lista tutto l'archivio in ordine secondo l'in¬ 
dice IND11 . 

•3) aggiorna l'archivio operando: 

•3a) aggiunta di nuovi record, 

■3b) modifica di record esistenti, 

■3c) cancellazione di record. 

Gli aggiornamenti avvengono sul file principale e 
sull'indice INDI1 . 

.*4) crea un indice secondario INDI2 in base a un 
qualunque campo del record, escluso il primo, in ordi¬ 
ne decrescente del campo chiave. 

.5) lista tutto l'archivio in ordine secondo INDI2. 

Per gestire veramente un archivio di dati sono neces¬ 
sarie anche altre funzioni, come ricerca e stampa di 
un record o di un gruppo di record, estrazione di 
record con determinate caratteristiche, ecc.. Parten¬ 
do dal nostro esempio, non ti sara' difficile svilup¬ 
pare in modo simile altre parti del programma. Il 
nostro scopo e' di mostrarti la problematica della 
gestione degli archivi di dati e alcuni esempi comple¬ 
ti dell'uso delle istruzioni del DOS per la gestione 
diretta dei file. 

Il programma e' stato sviluppato con la tecnica dei 
sottoprogrammi e in modo che, con poche modifiche, 
può' essere adattato ad altre situazioni. 

Abbiamo organizzato un record logico formato da 14 
campi di lunghezza fissa, realizzando un archivio 
anagrafico. Elenchiamo nell'ordine di registrazione le 
descrizioni dei campi e la loro lunghezza in carat¬ 
teri : 


1 ) 

cognome 

20 

8) 

data nascita 

8 

2) 

nome 

15 

9) 

titolo 

studio 

20 

3) 

indirizzo 

30 

10) 

occup. 

attuale 

20 

4) 

CAP/citta' 

25 

1 1 ) 

occup. 

preced. 

20 

5) 

provincia 

1 1 

12) 

stato 

civile 

1 

6) 

telefono 

10 

13) 

nota 1 


20 

7) 

luogo nascita 

20 

14) 

nota 2 


20 


alla lunghezza di ogni campo devi aggiungere 


un 


carat- 



tere di fine campo, che per noi e' CHR$(13) (RETURN). 
Avremmo potuto usare anche CHR$(44) (virgola), ma con 
il carattere RETURN siamo piu' liberi di leggere con 
ogni INPUT# i campi desiderati. La somma delle 
lunghezze dei campi piu' il carattere separatore da' 
254, cioè' un settore non usando i primi due carata 
teri. Abbiamo quindi coincidenza tra il record logico 
e il record fisico. I dati sono registrati nel set¬ 
tore partendo dal terzo carattere, cioè' posizionando 
il puntatore interno a 2. 

Per il file indice INDI1 ogni record e' formato dai 
seguenti campi: 

. chiave: cognome + nome, di 35 caratteri, completando 
con spazi ogni campo se piu' corto della sua lunghez¬ 
za , 

. indirizzo traccia, t, numero intero, 

. indirizzo settore, s, numero intero. 

Per il file INDI2, che viene creato quando si esegue 

il passo 4, abbiamo 3 campi per record, come per 

IND11, ma le dimensioni del primo campo dipendono dal 
campo scelto come chiave. Dal momento che un campo 

chiave può' anche essere vuoto, se esso ha lunghezza 
0, viene sostituito in INDI2 dal carattere CHR$(160). 
In conseguenza nell'ordinamento decrescente di INDI2 i 
campi chiave vuoti risultano i primi. 

Dobbiamo fare alcune considerazioni sull'occupazione 
di memoria. Infatti l'indice INDI1 viene creato e 

gestito in memoria e poi scritto su disco, quindi 
richiede spazio per i 3 vettori nei quali viene 
memorizzato. Non ci sembra utile fare dei conti pre¬ 
cisi per il nostro archivio, dal momento che tu 
probabilmente personalizzerai il programma secondo le 
tue esigenze. Per fare i conti, dopo aver caricato in 
memoria il programma, devi procedere cosi': 

.leggere il puntatore a inizio variabili, nei byte 45 
e 46, e calcolarne il valore; 

.leggere il puntatore di fine zona BASIC, nei byte 55 
e 56, e calcolarne il valore; 

.calcolare la differenza tra il secondo e il primo 
valore, che rappresenta il numero di byte a dispo-> 
sizione per tutte le variabili (tale numero lo ot¬ 
tieni anche eseguendo CLR:PRINT FRE(O)); 

.calcolare approssimativamente l'occupazione di memo¬ 
ria per ogni record di INDI1 e quindi ricavare il 
numero di elementi che può 1 avere ognuno dei 3 vetto¬ 
ri. A questo punto hai fatto i conti con la memoria 
del calcolatore. 



Per il dischetto devi tener presente che ogni record 
del file random occupa un settore, calcolare l'occu¬ 
pazione di ogni record di IND11 e di INDI2 in modo 
approssimato, dedurre il numero di record registra¬ 
bili e controllare se tale numero si accorda con il 
calcolo fatto per la memoria del calcolatore. 

E' importante fare bene questi conti per non avere 
spiacevoli sorprese. In caso un archivio può' essere 
suddiviso in diverse parti e tenuto su piu' floppy. 

Il programma lavora usando un dischetto apposito per i 
dati; su questo nel settore 0 della traccia 1 sono 
memorizzati i dati generali del file, e precisa- 
mente : 

. data di aggiornamento, 

. numero dei record presenti, 

. indirizzo del blocco, traccia e settore, dell'ul¬ 
timo record registrato. 

I record del file random sono registrati a partire 
dalla traccia 1, settore 1. 

All'inizio viene presentato un menu' di scelta della 
funzione. Il programma procede con domande semplici 
nelle diverse situazioni. Per uscire dalla richiesta 
dati devi rispondere con il carattere dollaro al 

cognome. Quando compare un messaggio senza richiesta 
di risposta per proseguire devi premere un tasto. 

Per uscire dal menu' senza operare devi scegliere la 
funzione 9 (FINE). 


I REM ARCHIRANDOM 
3 REM *********** 

5 REM DEFINIZIONE COSTANTI E VARIABILI 
7 REM ******************************** 

3 NC=14 REM NUMERO CAMPI RECORD 

II S1$="DATA ULTIMO AGO. 

13 32$="FINITO SPAZIO ASSEGNATO" 

15 SP$= " " ■■ FORK= 1T079 = SP$=SP$+ " " = NEXTK 
17 CH*=CHR* < 13>=LIM»=CHR*<99>+CHR*<99 >+CHRT <99> 


19 

DIMOT<NC>:DIMVt<NC> DIML< 

NC) 

21 

DATA"COGNOME 

",“NOME 

, * 

INDIR. 


DATA"CITTA"’ 

","PROV. 


TELEF. =" 

25 

DATA"L.NASC. 

","D.NASC.:" 

, ' 

T.STUD.^" 

■=_ i 

DATA"OCC.AT. 

","OCC.PR. =“ 

f ' 

ST.CIV.•" 

29 

DATA"NOTA 1 

"."NOTA 2 



31 

DATA2Q,15,30. 

25,11,10,20, 

8/ 

* cìU t cIU .* 1 / r 


33 FORK=1TONC = READDT<K>=NEXTK 
35 FORK=1TONC = READL<K>:NEXTK 
37 REM PRESENTAZIONE MENU' E SCELTE 
39 REM **************************** 

41 OPEN15,3,15 

43 PRINT"mMl" TABC 10} "GESTIONE ARCHIVIO" : PRINT 
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45 PRINTTAB<10>"1= INIZIO EX-NOVO" 

47 FRI NT TRE: < 10 " 2=RGG I ORNAMENTO " 

49 PRINTTfìB<10>"3=LISTR PRINCIPALE" 

51 PRINTTRBC 10:>"4=CRER2. IND.SEC. " 

53 PRIHTTAB<10>"5=LISTR SECONDARIfì" 

55 PRINTTAB < 10:>" 9=F INE" 

57 INPUT"COSA SCEGLI ";X 

59 I FX< 10RX>5RHDXO9THEHPR I NT " 71" ; : G0T057 
61 PRINT GGSIJB225 

63 R$= " " : PR IHTTAB< 10 > "MONTA DI SCO DAT I “ 

65 GETR$^IFR$=""THEN65 
67 IFX=1THEN77 
63 PRINT#15,"I" 

71 GOSUB135 = N=K ■■ PRINT"PRESENTI " ; K; " RECORD 
73 PRINTS1 * ; G1 * ; "/";M1$;"/"; A1 * 

75 IFX02THEN83 

77 REM INIZIO EX-NOVO ARCHIVIO 
79 REM *********************** 

81 PRINT" QUANTI RECORD INPUT N 

83 DIMC*<N>,TX<N>,SX<N> 

85 IFXO1THEHGOSUB201 
87 IFX=9THEH507 
89 ONXGOT0251,303,435,467,489 
91 STOP 

93 REM INGRESSO DATI 
95 REM ************* 

97 FRINT"^INGRESSO DATI" 

99 FOR J= 1 TONO ■■ V» < J > = " " = NEXTJ 

101 PRINT"PER USCIRE * PER COGNOME"1 

103 FRINT" «SE MANCANO DATIPREMI SOLO RETURN 

105 PR I NTD$ C 1 > ; : INPUTV* < 1 :• 

107 IFV$<1 > = "$"THENW=1 : RETURN 
109 FORJ=2T0NC ■ PRINTD*< J> INPUTV*<J> < NEXTJ 
111 REM SISTEMA LUNGHEZZA DATI 
113 REM ********************** 

115 FOR J= 1 TONO ^ V* < J > =LEFT % (. V$ < J > +SP$ ,LCJ > > 

117 NEXTJ^ G0SUB379: RETURN 

119 REM SCRITTURA INDICE PRINCIPALE 

121 REM *************************** 

123 PRINT#15,"S0=INOII":RRINT#15,"I" 

125 OPEN 10,8, 10, •-1ND11, S, W " : G0SUB213 
127 FORJ=lTOK 

129 FRINT#10-Ct<J>;CH*;TX<J>;CH4;S*i<J>;CH*; 

131 G0SUB213 :NEXTJ 

133 CLOSE10^ RETURN 

135 REM SCRITTURA NEL BUFFER 

137 REM ******************** 

139 FORJ=1 TONO : V*<J > =LEFT4<V*<J>+SP*,L<J>> 
141 PR I NT#11 , V* C J > CH4G0SUB213 
143 NEXTJ RETURN 

145 REM ALLOCA TRACCIA E SETTORE 
147 REM ************************ 

149 PR I NT# 15,"B-A > " 8, TS 

151 I NF'UT#15, EN, EM*, ET, ES 

153 IFEN=0THENRETURN 

155 IFEN065THEN221 

157 IFET=18THEHT=19 :S=0•GOTO149 

159 T=ETS=ES:GOTO149 

161 REM PUNTATORE NEL BUFFER 

163 REM ******************** 

165 PR IN T# 15, " B—P = " 112 = G0SUB213 = RETURN 
167 REM SCRITTURA RECORD 
169 REM **************** 

171 PRINT# 15, " IJ 2 ■ "11;0;T;S : G0SUB213 1 RETURN 




173 REM LETTURA RECORD 
175 REM ************** 

177 PRINT#15,"I "■ OPEN11,8,11,"#":G0SUB213 

179 PRINT#15, "U1 : " 1 1 ; 0TS ; G0SIJB213 = GOSUB165 

181 FOR.J= 1 TONO : INPUT#11, ■■ G0SUB213 

183 NEXTJ^ CLOSE11 : RETURN 

185 REM LETT. DATI DISCO 

187 REM **************** 

189 OPEN11,8,11,"#":G0SUB213 
191 PRINT#15,"U1 : "ll;0;l;0GOSUB213 
193 GOSUB161 : INPUT#11,R*,K,T,S = G0SUB213 
195 G1$=LEFT$<R$,2>=M1$=MID$<R*,3,2> 

197 A1$=RIGHT$<:R$, 2> uCLOSEil 
199 TT=T:SS=S: RETURN 
201 REM LETT. INDICE 
203 REM ************ 

205 OPEN10,8,10,"INOII,S,R":GOSUB213 
207 FORJ=1TOK 

209 I NPUT# 10, C$ C J > , TY. < J > , S Y. < J > = G0SUB213 
211 NEXTJ:CLOSE10 : RETURN 
213 REM ROUTINE ERRORE 
215 REM ************** 

217 INPUT#15,EN,EM$,ET,ES 
219 IFEN=0THENRETURN 
221 PRINT"«ERRORE DISCO" 

223 PRINTEN,EM$,ET,ES:CLOSE15 = STOP 
225 REM DATA DISCO 
227 REM ********** 

229 PRINT"DATA PER DISCO" 

231 I NPUT" GG, MM, AAIIIIHUIII" , G$, M*, A* : RETURN 
233 REM SCRITT. INO. SEC. 

235 REM ***************** 

237 PRINT#15,"S:INDI2":RRINT#15,"I" 

239 OPEN10,8,10,"INDI2,S,W" 

241 FORJ=1TOK 

243 PR I NT# 10, Cf < J> ; CH*; TY .< J > ; CH*S Y. < J > ; CH*; 

245 G0SUB213 :NEXTJ ; CLOSE10 : RETURN 
247 GETRT: IFRS=""THEN247 
249 RETURN 

251 REM INIZIALIZZAZIONE DISCO 
253 REM ********************** 

255 PRI NT "NOME DISCO" i ■■ INPUTN* : T=1 = S=0 
257 REM DATI DISCO SETTORE 1,0 
259 REM ********************** 

261 F'R I NT# 15, " HO : " +NT+ " , 99" 

263 CLOSE15 : OPEN15,8,15 PRINT#15,"I" 

265 REM DATA AGO. E HUM. RECORD 
267 REM *********************** 

269 OPEN11,8,11,"#":G0SUB213 :GOSUB149 :GOSUB165 
271 K=0 

273 PRINT#11,G*M*A#CH#,K,CH*; 1 ; CHS; 1 ;CH*, 

275 REM PRIMO SETTORE DATI 1,1 
277 REM ********************** 

279 G0SIJB213 

281 PRI NT# 15, "IJ2 : " 11 ; 0T; S : GOSUB213 
283 K=1 : W = 0 : T=1 : S=1 
285 G0SU893 

287 IFH=1THENK=K-1 :CLOSE11 :GOTO507 
289 GOSUB145 :GOSUB161=GOSUB135 
291 REM AGGIORNAMENTO INDICE 
293 REM ******************** 

295 C*<K> =V*< 1 > +V*2 > ■ TY. <K> =T : S Y. <K> =S 
297 GOSUB167 :K=K+1 

299 IFK>NTHENK=K-1 :PRINTS2$:CLOSE11 :GOTO507 
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301 
303 
305 
307 
309 
311 
313 
315 
317 
319 
321 
323 



329 


331 
335 

■ 2 ' - 2 ‘ i‘" 

339 

341 

343 

345 

347 

349 

351 

353 

355 

3:57 

359 

361 


365 

367 

369 

371 



393 
395 
397 
399 
401 
403 
405 
407 
409 
41 1 
413 
415 
417 
419 
421 
423 
425 
427 


GOT0285 

REM AGGIORNAMENTO 
REM ************* 

PRINTTRB< 10"nWfcRGG IORNAMENTO fiRCH IVIO" 

PR1NT : PRINTTRB<10>;"1=CuRREZIONE" 

PR INTTRBC 10> ; "2=RGGIIJHTR ELEM. " 

PRINTTRB< 10> "3=CRNCELL. ELEM. " 

PR I NTTRBC 10> "9=F I NE " 

INPUT"COSA SCEGLI " X = lPX=9THEN507 
IFX<10RX>3THEN307 
IFX=2THEN401 
IFX=3THEN417 
GOT0359 

REM RICERCA RECORD 
REM ************** 

PR I NT "71" ; 04 ■:! 1 > ; : V4 < 1 > = : INPUTY4 < 1 > = W=8 

IFY4 < 1 > = » 4 " THENW= 1 = RETURN 

PRINTD4C2 >; ^ V4<2 > = ""■INPUTV4<2 > 

V4•' 1 -■ =LEFT4 < V4 C 1 > +SP4, L< 1 > > 

V4 < 2> =LEFT4 i. V4 <2 >+SP4,L C 2> > 

INPUT"QUALE OCCORRENZA "; X 

IFXO0THEHPRI NT " 71" ; : G0T0341 

FOR J= 1TOK : IFC4 C ..T > =V4 < 1 > +V4 (. 2 > THEN353 

NEXTJ 

,T=..T-1 : PR I NT “ NON TROVATO " ; V4 < 1 > ; " “ ; V4 < 2 > 

G0SUB247:G0T0327 
IFXO1 THENX=X-1 = G0T0347 
T=TX<J>=S=SX<J> 

I =J : J=K. : NEXT J : RETURN 
REM CORREZIONE 
REM ********** 

G0SUB327:IFW=1THEN307 
G0SUB173 

REM VA R MODIFICA DATI 
REM ****************** 

G0SUB379 

PRINT#15, " I " : OPERI 1,8, 11, "#" • G0SUB161 = G0SUB135 

C4<I>=V4<1>+V4<2>=TX<I>=T = SX<I>=S 

GOSUB167•CL0SE11 : G0T0325 

REM CONTROLLO DATI E MODIFICHE 

REM ************************** 

PRINT"^CONTROLLO DATI E MODIFICHE" 

FORJ=1T0NC = PRINTJ;" ";D4 < J >;" ";V4 <J>:NEXTJ 
INPUT"WTUTTO BENE S/N ";X4 =IFX4="S"THENRETURN 
PRI NT "QUALE CAMPO <0 USCITA;-".: INPUTX 
IFX=0THENRETURN 

I FX>NCORX< 1THENPR: INT"m" : G0T0387 
V4 fX> = "" 

INPUTV4 < X > ■■ V4 < X > =LEF T4 < V4 < X >+SP4 , L < X > > 

GOT0383 
REM AGGIUNTA 
REM ******** 


OPEN11,8,11, 

PRI NT "AGGIUNTA 


G0SUB213 
NUOVI RECORD" 


PRINT"PRESENTI ";K;" RECORD" 
PR I NT " PUÒ I AGO I UNGERE " N-K ; " 


G0SUB247 

T=TT = 3=SS ^W=0^ K=K+1-G0T0285 


RECORD" 


REM CANCELLAZIONE 
REM ************* 

M=0 

G0SUB327=IFW=1THEN431 

X=L C 1 > +L < 2 ■' ^ C4 C I > =LEFT4 < LIM4+SP4+SP4, X > 
M=M+1 



429 F'R I NT# 15, " B-F ' “ 0T;S ' G0SUB213 ' G0T0423 

431 REM SIST. INDICE 

432 REM ************ 

433 G0SUB533'K=K—M=G0T0517 
435 REM LISTO FILE 

437 REM ********** 

433 TÌ="LISTA PER INDICE PRIM." 

441 PRINT"ACCENDI STAMPANTE PREMI UN TOSTO" 

443 GETRi ; IFRÌ=""THEN443 

445 PRI NT "ri" ; Ti : OPEN4,4 

447 PRINT#4:PRINT#4=PRINT#4,TÌ 

449 FORJ=1TU10 :PRINT#4 :NEXTJ 

451 L=2 = FOR I = 1 TDK = T=TX < I > = S=SX < I > ' GOSUB173 

453 PRINT#4, Vi < 1 > ; " " ; V*< 2 > 

455 PR I NT #4, Yi <: 3 ':> ; " ";v*<4>;" ";V*<5> 

457 F0RM=6T0NC ' PRINT#4, D*<M> ; Y*<M> ' NEXTM 

459 F'R I NT#4 : PR I NT#4 

461 IFL=5THENPRINT#4 ' L=0 

463 L=L+1= NEXTI 

465 CL0SE4:G0T0527 

467 REM CREAZIONE INDICE SECONDRRIO 
463 REM *************************** 

471 PRINT"VINDICE SECONDRRIO" 

473 INPUT"MQUOLE CAMPO "; X* 

475 X=VOL t Xi> ■■ I FX<20RX>NCTHENG0T0473 
477 GOSUB113 

479 FORI = lTOK ■■ T=TX< I > = S=SX< I > ' GOSUB 173 

480 IFLEhKYiOO >=0THENYÌ<X>=CHR$< 160;' 

481 Ci < I > =VÌ e! X > ' NEXT I 
483 G0SUB233'GOSUB201 

485 PRINT"FINITO IND. SEC." 

487 GOT0527 

489 REM LISTO PER INDICE SECONDARIO 
491 REM *************************** 

493 PRINT"3.1STA IND. SEC." 

495 OPEN10,8,10,"INDI2,S,R"'G0SUB213 
497 FOR J= 1 TDK ' I NF'UT# 10, Ci < J > , TX < J > , SX< .J > 

499 G0SUB213'NEXTJ 

501 CLOSE10'G0SUB561'G0SUB233 

503 Ti="LISTO IND. SEC. " 

505 G0T0441 
507 REM CHIUSURA 
503 REM ******** 

511 PRINT"CHIUSURO ORCHIVI0" 

513 PRINT"IND. PRINC. DO ORDIN. S/N " : INPUTRi 
515 IFRÌ="S"THENG0SUB533 
517 GOSUB 119'0PEN11,8, 11, “#"'■» G0SUB213 
519 F'R I NT# 15, "B-P= "11,2 

521 PRINT#11,GiMiOiCHi;K;CHi;T;CHi;S:CHi; 

523 G0SUB213 

525 PRINT#15,"U2'"11 ; 0 ì 1 ; 0'G0SUB213'CLOSE11 
527 PRINT"FINITO OGGIORNAMENTO" 

529 PRINT"SONO PRESENTI ", K;" RECORD" 

531 CLOSE15'STOP 

533 REM ORDINAMENTO CRESCENTE 

535 REM ********************* 

537 L=K—1 

539 W=0 

541 FORJ=lTOL 

543 IFCiC J> c:=CÌ< J+OTHEN553 

545 rì=cì <: j > ' cì< j >=cì e: j+ i >. cì <: j +1 >=rì 

547 X=TX<: J> ' TX < J > =TX<J+l > • TX< J+1 > =X 
549 X=SX< J> =SX< J>=SX< J+l> ' SX< J+l >=X 
551 W=1 
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553 NEXTJ 

555 IFW=0THENRETURN 

557 IFL=1THENRETURN 

559 L=L—1 ; G0T0539 

561 REM ORDINAMENTO DECRESCENTE 

563 REM *********************** 

565 L=K-1 

567 W=0 

569 FORJ=lTOL 

571 IFC* < J> >=C*<J+1>THEH581 
573 R*=C*<J>•C*<J+l>^ C*<J+l>=R* 
575 X=TXC J:> = TX < J> =TX< J+1 > : TX< J+1 > =X 
577 X=SX < J > : SX < .J > =SX C J+1 ) ' SX < J+1 > =X 
579 W=1 
581 NEXTJ 

583 IFW=0THENRETURN 
585 IFL=1THENRETURN 
587 L=L-1 G0T0567 


ELENCO VARIABILI 

.NC, numero campi del record logico, 14 per noi, 

. S1 $, S2$ ,T$, stringhe descrittive. 

.SP$, 79 spazi, tale stringa deve contenere un nume¬ 
ro di spazi pari al campo piu' lungo del record, 
infatti serve per aggiungere spazi ai campi piu' cor¬ 
ti o vuoti. Noi abbiamo usato 79, per la compati¬ 
bilita’ con altri calcolatori COMMODORE, ma potrebbe 
essere anche 88. 

.CH$, CHR$(13), per separare i campi con RETURN. 

.LIM$, tre caratteri CHR$(99), serve per il campo 
chiave dei record cancellati. 

,D$(NC), descrizioni dei campi del record, da prele¬ 
vare dalle frasi DATA presenti nelle linee da 21 a 29. 

.Y$(NC ) , campi dati. 

•L(NC), lunghezze dei campi dati, da prelevare dalla 
linea DATA 31. 

.K,J,L, variabili di controllo. 

.X,R$,X$, variabili per risposte. 

.N, numero record. 

.Gl $,MI $,A1 $, data precedente. 

.G$,M$,A $, data aggiornamento. 

.C$(N), chiavi dell'indice. 

.T>(N),SJ(N), tracce e settori dell'indice. 

.W, switch per lettura dati, 1 se finiti i dati. 

.T,S, traccia e settore. 

. EN,EM$,ET,ES, variabili per messaggio errore. 

.N$, nome disco e archivio. 

.TT,SS, indirizzo settore precedente. 

.M, numero record cancellati. 



Le modifiche per adattare il programma alle tue 
esigenze riguardano: 

.il numero dei campi NC, 

.le frasi DATA delle descrizioni e delle lunghezze 
dei campi. 

.la parte di programma che lista i record. 

Risulta piu' difficile modificare il fatto che l'in¬ 
dice e' sui primi due campi; puoi ovviare all'incon¬ 
veniente dimensionando uno dei due campi a lunghezza 1 
e lasciandolo vuoto. 

Le due routine di ordinamento risultano un po' lente; 
potrebbero essere sostituite con routine di ordina¬ 
mento in linguaggio macchina. Esse lavorano sui 3 vet¬ 
tori che contengono l'indice, o principale o secon¬ 
dario . 

Il programma accetta record con i primi due campi 
uguali; in conseguenza nella ricerca chiede anche 
l'occorrenza del record. 

COMMENTO A ARCHIRANDOM 
.1/35: definizione costanti e variabili. 

.37/91: presentazione menu' e scelte. 

.93/117: sottoprogramma ingresso dati e sistemazione 
lunghezza campi. 

.119/133: sottoprogramma scrittura INDI1 su floppy. 
.135/143: sottoprogramma scrittura nel buffer. 
.145/159: sottoprogramma allocazione traccia e setto¬ 
re. 

.161/165: sottoprogramma posizionamento puntatore. 
.167/171: sottoprogramma scrittura settore sul flop¬ 
py. 

.173/183: sottoprogramma lettura record. 

.185/199: sottoprogramma lettura dati generali disco. 
.201/211: sottoprogramma lettura INDI1 in memoria. 
.213/223: sottoprogramma routine errore disco. 
.225/231: sottoprogramma richiesta data aggior¬ 
namento . 

.233/249: sottoprogramma scrittura indice INDI2. 
.251/301: fase 1 del menu', inizio ex-novo archìvio e 
caricamento record. 

•303/433: fase 2 del menu', aggiornamento: modifica, 
aggiunta e cancellazione. Quando si cancella un record 
viene liberato il settore occupato. 

.435/465: fase 3 del menu', lista archivio. 

.467/487: fase 4 del menu', creazione INDI2. 

.489/531: fase 5 del menu', lista per indice secon¬ 
dario. 

.533/559: sottoprogramma ordinamento crescente indi- 
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ce, con eliminazione dei record cancellati. 

.561/587: sottoprogramma ordinamento decrescente 
indice. 


ARCHIVIO RANDOM-USER 

Per organizzare un archivio di questo tipo è' neces¬ 
sario eseguire preventivamente un programma che impe¬ 
gni su disco il numero di settori che servono per il 
file randora, creando un file sequenziale di record 
"dummy" (vuoti), al quale, per distinguerlo dagli 
altri, possiamo assegnare il tipo USR. Impegnando i 
settori in questo modo essi vengono concatenati sui 
primi 2 caratteri e il file di tipo USR viene 
registrato nella directory. Dobbiamo conservare gli 
indirizzi di traccia e settore utilizzati dal file 
USR, e, quando scriviamo i record del file random, 
dobbiamo andare a scrivere sugli stessi settori, sen¬ 
za eseguire il comando B-A di allocazione. In questo 
modo le nostre registrazioni non vengono danneggiate 
dai comandi COLLECT e VALIDATE. 

Abbiamo voluto migliorare ulteriormente l'organiz¬ 
zazione del nostro programma, in modo che esso possa 
essere utilizzato per generare archivi di tipo diver¬ 
so. Abbiamo stabilito di mantenere la lunghezza del 
record logico al massimo a 25-4 caratteri, utilizzando 
un settore per ogni record logico. Inoltre abbiamo 
mantenuto le caratteristiche funzionali del programma 
ARCHIRANDOM. 

Per realizzare questo archivio dobbiamo: 

.preparare un programma, di nome STRUTTFILE, che 
mediante un colloquio video/tastiera, ci consente di 
definire la struttura del record logico dell'ar¬ 
chivio, fissando il numero dei campi, il loro nome e 
la loro lunghezza, il nome del disco e dell'archivio, 
la data iniziale. STRUTTFILE controlla che la lunghez¬ 
za dei campi non superi 254. Le caratteristiche defi¬ 
nite per l'archivio vengono scritte su un file di ti¬ 
po sequenziale di nome STRUTTURA; questo file viene 
letto dal programma di gestione dell'archivio all'i¬ 
nizio dell’elaborazione e gli fornisce le costanti, 
che per ARCHIRANDOM sono incorporate nel programma 
stesso. 

.preparare un programma, di nome INIZIOFILE, che, 
ricavando le informazioni necessarie dal file STRUT¬ 
TURA, crea sul floppy un file sequenziale di tipo USR, 



riservando tutti i settori che servono per il file 
random, e inoltre crea a priori il file sequenziale 
INDI1, lasciando vuote le chiavi, ma scrivendo gli 
indirizzi di traccia e settore utilizzati. 

•preparare un programma, di nome ARANDOMUSER, che 
gestisce il file random, utilizzando il file STRUT¬ 
TURA e il file IND11 . 


1 REM STRUTTFILE 
3 REM ********** 

5 S1$="LA SOMMA DELLE LUNGHEZZE SUPERA 254" 
7 S2$="MODIFICA QUALCHE CAMPO" 

9 PRI NT " mEF INIZI OHE STRUTTURA RECORD»" 
il REM CHIEDE NUMERO CAMPI MINORE DI 20 
13 REM ******************************** 

15 INPUT"NOME FILE : ;N* 

17 I NF'UT " QUANTI CAMP I : " ; NC 

19 IF NC < 20 R NO 2 0 T H E N 9 

21 PRINT"niOMI E LUNGHEZZE CAMPI" 

23 PRINT"OGNI CAMPO MINORE DI 80 CARATT." 

25 PRINT"OGNI NOME MASSIMO 10 CARATTERI" 

27 DIMD*<NO,L<NC> 

29 FORK=1TONC 

31 PRINTK"NOME = "; = INPUTD*<K> 

33 I NF'UT " LUNGHEZZA = " ; L C K> 

35 NEXTK. 

37 PRINT"^CONTROLLO CAMPI" 

39 FGRK=1TONC 

41 IFLEN<D*<K>> >10THENO* < K > =LEFT* < D* < K >,10> 
43 IFL<K>>79THENL<K >=79 
45 PR I NTK : DT < K ;■ ; " " ; L < K > 

47 NEXTK 

49 PRINT"«CONFERMI S/N ";:INPUTR* 

51 IFR$="S"THEN61 
53 INPUT"QUALE CAMPO= " J X 
55 IFXC0ORX>NCTHEN53 
57 INPUT"CAMPO: ";D$<X> 

59 I NF'UT "LUNGHEZZA : " ; L CX> : GGT037 
SI REM CALCOLA LUNGHEZZA RECORD 
63 REM ************************ 

65 S=NC:F0RK=1T0NC 
67 S=S+LOO :NEXTK 

69 IFS>254THENPR INTS1 1- ■■ PRINTS2* : G0T039 
71 FRI NT "NOME FILE: " H* 

73 PRINT"LUNGHEZZA RECORD: ";S 

75 CLOSE15 : OPEN15,S,15,"I" 

76 PRINT# 15.■ "S : STRUTTURA" 

77 0PEN2,8,2,"STRUTTURA, S,W" 

79 PR: I NT#2 j N* 

81 PR: INT #2 .• NC 

83 F0RK=1T0NC : F'RINT42 • D$00 = NEXTK 
85 FORK=1TONC:PRINT#2,L<K>= NEXTK 
87 CL0SE2 

89 F'R INT "VERIFICA" 

91 0PEN2.8,2,"STRUTTURA, S, R" 

93 INPUT42,AT 

95 FRI NT" NOME FILE: »;fii 

97 INPUT #23 X 

99 PRINT"NUMERO CAMPI : "X 
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101 FORK= 1TOX : I HF'IJT#2, D$ C K > > NEXTK 
103 FORK=1 TOX INPUT#2,L <K>; NEXTK 
105 CLOSE2 : CLOSE15 

107 FORK= 1 TOX ^ PR I NTK; D* < K > ; L < K >= NEXTK 
109 STOP 


COMMENTO A STRUTTFILE 

.15: chiede il nome del file random e lo pone in N$. 

.17: chiede il numero NC dei campi e controlla che 
sia compreso tra 3 e 20. Abbiamo imposto il minimo 2, 
dato che per il nostro file la chiave di ordinamento 
lavora sui primi 2 campi. Il limite superiore 20 ci 
consente di vedere in un solo quadro video i campi. 

.21/35: chiede il nome e la lunghezza dei campi, con 
la limitazione che il nome non superi 10 caratteri e 
la lunghezza 79 caratteri (sempre per la compati¬ 
bilita’ con altri modelli). 


.37/47: 

controlla 1 dati 

e li aggiusta 

ai limiti 

se 

necessar 

i o. 




.49/59: 

chiede conferma 

dei dati e 

consente 

di 


correggerli. 

.61/69: controlla la lunghezza del record, aggiun¬ 
gendo alla lunghezza di ogni campo 1 per il CHR$(13) 
di fine campo. Se non risulta <-254 chiede di modifi¬ 
care la struttura del record. 

.71/87: scrive il file STRUTTURA sul dischetto del 
programma, dopo aver cancellato, ae esiste, un prece¬ 
dente file. 

.89/109: rilegge il file STRUTTURA per verificare 1 
dati e li ripropone sul video. 


I REM INIZIOFILE 
3 REM ********** 

5 REM DIMENSIONA COSTANTI E VARIABILI 
7 REM LEGGE FILE STRUTTURA 
9 REM ******************************* 

II CH$=CHR*<13> 

13 S1%=" “•FORK=1T039•S1$=S1*+" "•NEXTK 
15 ft£$=" 

17 OPEN15,8,15,"I" 

19 0PEN2,8,2,"STRUTTURA, S, R " = G0SUB229 
21 INPUT#2,N*,NC : G0SUB229 
23 N$=LEFT$<N$+S1$,16> 

25 F'RINT"DATI FILE STRUTTURA" 

27 PRINT"FILE : “;N*;" NUMERO CAMPI : ";NC 

29 INPUT"QUANTI RECORD : ";N 
31 IFN>100THEN STOP 
33 NX*=STR*<N> 

35 NX*=RIGHT*<S2T+NXT,6 > 

37 DIMD* CNC >,L <NC>,Vf<NC> 

39 FORK=1TONC• INPUT#2,D*<K >=NEXTK 



41 FORK=1TONC : INPUT#2 , L ( K > : NEXTK 
43 CL0SE2 

45 FORK=1TONC = PRINTD*<IO;” ’OLOO •NEXTK 
47 SR=NC = FORK=1TONO = SR=SR+L<K> : NEXTK 
49 FRINT"LUNGHEZZA RECORD : ";SR 

51 IFSR>254THENPRINT“NON POSSO PROSEGUIRE" : STOP 
53 REM CAMPI DATI CON CHR*< SS > + SPAZI 
55 REM ******************************* 

5? FORK=1TONC.Y*<IQ-CHR*<99)=IFLOO = 1THEN63 
59 F0RJ=1T0L<K>-1 


61 V*CK >=V$<K >+CHR#<32 >«NEXTJ 
63 NEXTK 

65 IFSR=254THEN77 

67 REM CREA CAMPO FINALE SE SRC254 
69 REM *************************** 

71 IFSR=253THENDN*="" G0T077 
73 DN$=CHRS < 99 > : FORK=»lT0253-SR-1 
75 DN*=DN*+CHR*<32 > NEXTK 
77 REM CREA FILE USER 
79 REM ************** 

SI PRINT"MONTA DISCO DATI" 

83 PRINT"PREMI UN TASTO PER PROSEGUIRE" 

85 R$="":GETR$=IFR*=""THEN85 

87 PRINT"PAZIENZA, ATTENDI, STO PREPARANDO" 

89 PRINT"IL DISCO DATI" 

91 CLOSE15 : OPEN15,8,15,"NO■"+N*+",99" 

93 REM RIEMPIE RECORD 

95 REM CON CAMPI CHE INIZIANO CON CHR#<99> 

97 REM *********************************** 

99 0PEN2,8,2,N$+",U,W"=G0SUB229 

101 REM SCRIVE PRIMO RECORD PER DATI DISCO 

103 REM OCCUPANDO UN INTERO SETTORE 

105 REM *************************** 

107 PRI NT #2, N$CH#"GOMMAR"CH*NX*CH* M 0"CH*" "CH$" 
109 G0SUB229 

1 1 1 F'R I NT#2, S1TCHTS1$CH#S1#CH*S1 t-CHTS 1*CH*S2$ 

1 13 G0SIJB229 

115 FORK=1TON 

117 FORJ=1TONC 

119 PR I NT#2, V*-:: J > ; CHT ; 

121 G0SUB229 
123 NEXTJ 

125 IFSRC254THENPRINT#2,DN* 

127 NEXTK 
129 CLOSE2 

131 REM CREA FILE INDICE 

133 REM INDIRIZZO PRIMO SETTORE DIRECTORY 
135 REM ********************************* 

137 CLOSE15 ^OPEN15,8,15,"I" 

139 OPEN2,8 ,2," #" : G0SUB229 
141 REM LEGGE SETTORE 18,1 
143 REM ****************** 

145 PRINT#15,"U1= 2,0,18,1":G0SUB229 
147 REM PUNTATORE A TRACCIA E SETTORE 
149 REM ***************************** 

151 PRINT#15,"B-P: 2,3"=G0SUB229 
153 TT=" " ^ S$=" " ^ GET#2, T$, SS 
155 T*=T*+CHR$<0>:S*=S*+CHR#<0> 

157 CL0SE2 

159 T=ASC<T*>:S=ASC<S*> 

161 FRINT"PRIMO BLOCCO" 


163 
165 
167 


PR I NT " TRACCIA : " ; T: " SETTORE : 

PRI NT 11 PREMI UN TASTO PER PROSE 
R*=""^ GETR*:IFR*=""THEN167 


•UT DC H 

X IVU 


n CH$ 
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169 REM GENERO INDICE 

171 REM LEGGENDO FILE USR COME RfiNDOM 
173 REM ***************************** 

175 CLOSE15 : OPEN15,8,15,"I" 

177 OPEN3,S,2,=G0SUB229 
179 0PEN3,S,3,"INOI1,S,W":G0SUB229 
181 REM SCRIVE PRIMO RECORD INDI1 
133 REM ************************* 

185 PRI NT#3, Vf < 1 > +VT < 2 ; CHT ; T ; CHTS : G0SUB229 
187 REM SCRIVE ALTRI N RECORD 
189 REM ********************* 

191 FORK=lTOH 

193 PRINT# 15, "U1 = 2,0" ; TS = G0SUB229 
195 PRINT#15,"B-P = 2,0“=G0SUB229 
197 GET#2, T$■, ST : G0SUB229 
199 T=ASCCT*+CHR*<0>> : S=ASC<S*+CHR*<0>> 

201 PRINTT.S 

2G3 PRINT#3,V#<1>+Y*<2>;CH*;T;CH*;S > G0SUB229 

205 NEXTK:CL0SE2=CL0SE3 

207 REM FILE STRUTTURA SU DISCO DATI 

289 REM **************************** 

211 QPEN2,8,2,"STRUTTURA,S,W"=G0SUB229 
213 PR I NT#2, NT G0SUB229 
215 PRINT#2,NC : G0SUB229 

217 FORK=1TONO :PRINT#2,DT<K>:GOSUB229:NEXTK 
219 FORK=1TONO = PRINT#2,L <K>=G0SUB229 = NEXTK 
221 CL0SE2 

223 FRINT"IL DISCO DATI E" PRONTO" 

225 CLOSE15 

227 OPEN15,8,15,"V"■CLOSE15 = STOP 
229 REM ROUTINE ERRORE 
231 REM ************** 

233 I NF'UT# 15, EN, EMT, ET, ES 
235 IFEN=0THENRETURN 

237 PR I NT "ERRORE DI SCO 11 ; PRINTEN, EMT-, ET, ES 
239 STOP 


COMMENTO A INIZIOFILE 

.1/51: definisce costanti e variabili, legge il file 
STRUTTURA dal disco dei programmi, chiede il numero N 
dei record e controlla che non superi 100 (linea 31, 
potrai eventualmente modificare tale numero). Control¬ 
la che la somma delle lunghezze dei campi non superi 
254 e se va bene prosegue. 

.53/75: prepara i campi dummy con primo carattere 
CHR$(99). 

.77/91: chiede di montare il disco dati e lo format¬ 
ta . 

.93/129: apre il file sequenziale di tipo USR, scri¬ 
ve i dati generali del disco sul primo settore e poi 
tutti i settori necessari per gli N record, chiude il 
f ile. 

.131/167: per poter creare il file INDI1 va a leg¬ 
gere dalla directory l'indirizzo del primo blocco del 
file USR generato. 
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.169/227: crea il file INDI1, con chiavi dummy e gli 
indirizzi di traccia e settore, che ricava dai primi 
due byte di concatenamento dei settori del file 
sequenziale creato. Scrive sul disco dei dati il file 
STRUTTURA. Alla fine esegue il comando VAL1DATE per 
essere sicuro della corrispondenza della BAM alla 
situazione creata. Il primo record di INDI1 contiene 
l'indirizzo del settore del disco usato per le infor¬ 
mazioni generali sull'archivio. 

.229/239: routine errore disco. 

Questo programma, a parte la sua utilità' per realiz¬ 
zare il nostro archivio, e' molto interessante per 
imparare a maneggiare bene le registrazioni che si 
trovano sul floppy. 

Se chiedi la lista della directory del floppy, vedrai 
registrati 3 file, quello di tipo USR con il nome che 
gli hai assegnato, INDI1 e STRUTTURA. 


I REM RRfiMDOMUSER 
3 REM *********** 

5 REM DEFINIZIONE COSTANTI E VARIABILI 
7 REM ******************************** 

9 S1T="DATA ULTIMO AGO. 

II S2T="FINITO SPAZIO ASSEGNATO" 

13 SF'*=" " : F0RK=1T079 = SP*=SP*+" " = NEXTK 
15 CHT=CHRT< 13:' : LIM$=CHR$<:99>+CHR$C32>+CHR$<::32> 
17 REM LEGGE DATI DA FILE STRUTTURA 
19 REM **************************** 

21 FRI NT " riSM" TAB S > " MONTA DISCO DATI" 

23 COSI IB257 
25 OPEN15,8,15,"I" 

27 0PEN2,8,2,"STRUTTURA,S,R"=G0SUB219 
29 IHPIJT#2, NT, HC = G0SUB219 
31 DIMDT<NC> ^ DIMVTc;NC) DIML<NC) 

33 FORK= 1TONC = INPUT#2, DT < K> NEXTK 
35 FORK=1TONC: INPUT#2,L C K>=NEXTK 

45 REM"LÉGGE DATI DISCO 
47 REM **************** 

49 OPEN1O,8,10,"INDI1,S,R" G0SUB219 
51 REM SETTORE DATI GENERALI 
53 REM ********************* 

55 INPUT#IO,AT,TD,SD 
57 G0SUB187 

59 REM DIMENSIONAMENTI PER INDICE 
61 REM ************************** 

63 DIMCT < N :>, TX <N > , SX< N > 

65 REM LETTURA INDICE 
67 REM ************** 


69 G0SUB213 :G0SUB231 

71 REM PRESENTAZIONE MENU' E SCELTE 
(■ o REM **************************** 

75 F'RINT"nW»" .: TAB<10>; "GESTIONE ARCHIVIO" 
77 PRINTTAB<10 >"1=AGGIORNAMENTO" 


79 

81 


PR I NTTAB < 10 " 2=L I STA 
PRINTTAB <10 >"3=CREAZ. 


PRINCIPALE" 
IND.SEC." 


SPRINT 
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F'RIHTThBC io::' " 4=L I STO SECONDAR IR" 

PRI NT TRE: < 10 > " 9=F I NE " 

INPIJT " COSA SCEGLI " X 

IFX C 1QRJ04RNDX09THENPRI NT "TI" ; ' G0T0S7 
PRINT'PRINT"PRESENTI " iKi" RECORD" 

fri m re; i «ero ir, " / n , m r* ; -"vr. Air 

G0SUB257 
IFX=9THEN497 
0NXGGT0295,427,459,479 
STOP 

REM INGRESSO DATI 
REM ************* 

PRINT"niNGRESSO DATI" 

FORJ=1TONC=V*CJ> = ""=NEXTJ 

PRINT"PER USCIRE * PER COGNOME"; 

PRINT"MSE MANCANO DATIPREMI SOLO RETURN" 
PRINTD*< 1 >; :INPUTVtC1> 

I FV$ <: 1 > = •'£'• THENW= 1 = RETURN 

FORJ=2TONC ' PR IHTD* C J > ; = INPUTV* < J > = NEXTJ 

REM SISTEMA LUNGHEZZA DATI. 

REM ********************** 

FOR J= 1 TONC = V* C J > =LEFT* < V* < J > +SP* L < J > > 
NEXTJ'G0SUB371'RETURN 
REM SCRITTURA INDICE PRINCIPALE 
REM *************************** 

PRINT#15,"SO' INDI 1“ PRINT#15,"I" 

OPEN1O,8,1O,"INDI1,S,W"=G0SUB219 

PRINT#1O,LIM$;CH*;TD;CH*;SD;CH#;=G0SUB21 

FORJ=lTON 

PRINT#10, C t (J ; CH*; TX<J> ; CH*;SK< J> ; CH*; 

G0SUB219 = NEXTJ 

CLOSEIO RETURN 

REM SCRITTURA NEL BUFFER 

REM ******************** 

FORJ=1TONC'V*(J > =LEFT# < < J > +SP$,L < J > > 

PRINT#11,VT<J>;CH$;'G0SUB219 
NEXTJ'RETURN 

REM LETTURA SETTORE NEL BUFFER 
REM ************************** 

PRINT#15,"U1 11,O";T;S'G0SUB219 = RETURN 
REM PUNTATORE NEL BUFFER 
REM ******************** 

PRINT#15, "B-P'"11 ; 2'G0SUB219'RETURN 
REM SCRITTURA RECORD 
REM **************** 

PRINT #15,"U2'"11 ;o;T;S:G0SUB219'RETURN 
REM LETTURA RECORD 
REM ************** 

PRINT#15,"I"'OPEN11,8,11,"#":G0SUB219 
PR I NT# 15, " 1J1 ' " 11 ; O ; T ; 3 ' G0SUB219 = GOSUB163 
FORJ=lTONC ' INPIJT#11, V*< J> = G0SUB219 
NEXTJ'CLOSE11 RETURN 
REM LETT. DATI DISCO 
REM **************** 

OPEN11,8,11,"#"'G0SUB219 
PR I NT# 15, " IJ1 : " 11, O ; TD ; SD = G0SUB219 
GOSUB163=1NPUT#11,N*,R*,N,K = G0SUB219 
G1 T-=LEFT t < Rt , 2 > = M1 $=M ID$< R$, 3, 2> 

Al$=RIGHT$< R$,2>=CLOSE11= RETURN 
REM LETT. INDICE 
REM ************ 

CLOSEIO'OPEN10,8,IO,"INDI 1,S,R"= G0SUB219 
INPUT#10,A$,TD,SD 
REM DA SECONDO RECORD 
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215 
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231 

233 


237 

239 

241 

243 

245 

247 

249 

251 

253 



REM ***************** 

F0RJ=1T0N 

i nput# 10 , et- e: j >, tx < j >, s'i t j > > gosub 2 i 9 

NEXTJ:CLQSE10: RETURN 
REM ROUTINE ERRORE 
REM ************** 

INPUT#15,EH,EMT,ET,ES 

IFEN=0THENRETURN 

PRINT"«ERRORE DISCO“ 

PRINTEN,EMT,ET,ES = CLOSE15 <STOP 
REM DATA DISCO 
REM ********** 

FRINT"DATA PER DISCO" 

I NPUT " GG, MM, RRHIIIIIllll" GT, MT, fi* : RETURN 
REM SCRITT. IND. SEC. 

REM ***************** 

PRINT#15.. "S = IND12" =PRINT#15, " I " 

OPEN 10.• S • IO, " INDI2, S, W" 

F ORJ=1TOK 

pr I NT tt 1 0 , c$< J> ; cht ; tx<: j> cht ; sxc J> ; ch$; 
G0SUB219:NEXTJ = CLOSEIO : RETURN 


REM ATTESA TASTO 
REM ************ 

RT="":GETRf^IFRf=""THEN257 
RETURN 

REM RICERCA POSTO LIBERO 
REM ******************** 


FORI=1TON 

IFLEFTf tetti) , 1 >OCHR$ 099 >THEH 271 
T=TXCI>:S=SX<I>.JJ=I : I=N 
NEXTI : RETURN 

REM AGGIUNTA NUOVI RECORD 
REM ********************* 

GOSUB103^G0SUB2S1 
IFW=1THENK=K-1=CLOSE11=GOTD497 


GOSUB157■GOSUB163-GOSUB147 
REM AGGIORNAMENTO INDICE 
REM ******************** 

C# J J > =VT C 1 > +VT C 2 > 

GOSUB169=K=K+1 

IFK>NTHENK=K—1 :PRINTS2*=CLOSE11=G0T0497 
GUTLI27 i" 

REM AGGIORNAMENTO 
REM ************* 

PRINTTABC. 10> , "IWWFlGGIORNAMENTO ARCHIVIO" 
PR I NT : F'R INTTAB C 10 > ; " 1 =CORREZ I OHE " 

F'R I NTTAB C 10> ; " 2=AGG I UNTA ELEM. " 

PRINTTABC IO:-"3=CANCELL. ELEM. " 

F'R: I NTTAB C 10> ; " 9=F I NE " 

INPUT"COSA SCEGLI "; X■IFX=9THEN497 

IFX<10RX33THEN299 

IFX=2THEN393 

IFX=3THEN409 

U0T0351 

REM RICERCA RECORD 
REM ************** 

PR I NT " TT Ut C 1 ;■: VT C 1 > = " " INPUTVT < 1 > : W=0 

IFVTC 1 >=“*“THENW=1 = RETURN 

PRINTDTC2 >; =VTC 2 > = "" = INPUTV*C 2 > 

VT C 1 > =LEFTTC VT < 1 > +SPT, L < 1 > > 

'r't < 2 :? =LEFT t C VT C 2 > +SF'T, L C 2 > > 

INPUT"QUALE OCCORRENZA "; X 

IFXOOTHENPRINT" H" ; = G0T0333 

FORJ=1TOH : IFOTCJ> =VT<1> +VT C 2 > THEN345 




339 NEXTJ 

341 J=J—1 :PRINT"NON TROVATO ";V*<1>;" ";V*<2> 

343 G0SUB257= G0T0319 

345 IFXO1 THENX=X-1 : G0T0339 

347 T=TXCJ>=S=SX<J> 

349 I=J = J=N=NEXTJ: RETURN 
351 REM CORREZIONE 
353 REM ********** 

355 G0SLIB319-1 FW= 1THEN299 
357 G0SUB175 

359 REM VA A MODIFICA DATI 
361 REM ****************** 

363 G0SUB371 

365 F'R I NT# 15, " I " = OPEN 11,8,11,"#"= GOSUB163 = GOSUB14 

367 Ct < I > =Y$ < 1 ;■ +V$ < 2 > = TX < I > =T = SX < I ;■ =S 

369 GOSUB169 = CLOSE11= GOT0351 

371 REM CONTROLLO DATI E MODIFICHE 

373 REM ************************** 

375 PRINT"^CONTROLLO DATI E MODIFICHE" 

377 FORJ=1TONC = PRINT J," ";D*<J>;" "; V*<J> =NEXTJ 
379 INPUT M «TUTTO BENE SXN " X* = IFX*="S"THENRETURN 
381 PRI NT "QUALE CAMPO <0 USC ITA >"J = INPUTX 
383 IFX=0THENRETURN 

385 IFX>NCORX<1THENPRINT"m" = G0T0379 
387 Vt < X :• = " " 

389 INPUTVf-<:=•=:> = V*CX>«LEFT*<V*<X>+SP*,L<X>> 

391 G0T0375 
393 REM AGGIUNTA 
395 REM ******** 

397 OPEN11,8,11,"#"=G0SUB219 
399 PRINT"RAGGIUNTA NUOVI RECORD" 

401 PR I NT " PRESENTI " ; K" RECORD " 

403 PRINT"PUOI AGGIUNGERE ",N-K," RECORD" 

405 G0SUB257 
407 W=0 = K=K+1= G0T0277 
409 REM CANCELLAZIONE 
411 REM ************* 

413 M=0 

415 G0SUB319 =IFW=1THEN423 

417 X=L < 1 >+L < 2 = C t < I > =LEFT4= < LI M*+SP*+SP*, X > 

419 M=M+1 

421 G0T0415 

423 REM SIST. INDICE 

425 G0SUB523 = K=K—M = GOTO507 

427 REM LISTA FILE 

429 REM ********** 

431 T t =“LISTA PER INDICE PRIM." 

433 FRINT"ACCENDI STAMPANTE PREMI UN TASTO" 

435 G0SUB257 

437 PRI NT "73" ; T» = 0PEN4, 4 

439 PRINT#4 = FRINT#4 = PRINT#4,T* 

441 PRINT#4 = pRINT#4 

443 F OR 1 == 1TOR = I =TX e. 1 > = S=SX Cl > OÒSÙB175 
445 PRINT#4,V*<1>;" "; V*C2 > 

447 IFNC=2THEH451 

449 F0RM=3T0NC = PRINT#4,D*<M>"= "V*<M>= NEXTM 

451 PRINT #4 = PRINT#4 
455 NEXTI 

457 CLOSE4 = G0T0517 

459 REM CREAZIONE INDICE SECONDARIO 
461 REM *************************** 

463 PRINT"VINDICE SECONDARIO" 

465 INPUT"«QUALE CAMPO "; X* 

467 X=VAL<X*>=IFX<20RX>NCTHENG0T0465 




469 FORI = 1TOK T=TX< I > = S=SX < I > = QOSUB175 

470 IFLEN<Y*<X> >=0THENV*<X>=CHR*<160> 

471 Ct< I)=V*<X> =NEXTI :G0SUB551 
473 G0SUB239 

475 PRI NT “FINITO INO. SEC.** 

477 G0T0517 

479 REM LISTA PER INDICE SECONDARIO 
4SI REM *************************** 

433 PRINT"IT.ISTA INO. SEC." 

435 OPEN IO , 8, 10, " INDI2, S, R" : G0SUB219 
437 FORJ=lTOK = INPUT# 10, C*C 3> , TXC J> , SX< J> 

489 G0SUB219 = NEXTJ 
491 CLOSE10 

493 Tt="LISTA INO. SEC. " 

495 G0T0433 
497 REM CHIUSURA 
499 REM ******** 

501 PRINT"CHIUSURA ARCHIVIO" 

503 PRI NT" IND. F'RINC. DA ORO IN. S/N “=INPUTR* 

505 I FR$="S"THENG0SUB523 

507 G0SUB129=OPEN11,8,11,"#" G0SUB219 

509 F‘RINT#15, "IJ1 = " 11 ; 0; TD.: SD : G0SUB219 = G0SUB16 

511 PR I NT# 11, N$CH$G*M*A$CH* ; N, CHTKCHT ; 

513 A0SIJB219 

515 PRINT#15,"U2 : "11 ; 0;TD;SD = G0SUB219 CLOSE11 
517 PRINT"FIHIT0 AGGIORNAMENTO" 

519 PRINT"SONO PRESENTI ";K," RECORD" 

521 CL0SE15 ; STOP 

523 REM ORDINAMENTO CRESCENTE 

525 REM ********************* 

527 L=N—1 

529 W=0 

531 FORJ=lTOL 

533 IFC*CJ><=C$<3+1>THEN543 

535 R*=C* < J > : C *< 3> =C*< 3 +1 > • Ct < J+1 =R* 

537 X=TX < T > : TX < 3 ’> =TX<.T+1> ^ TX( J+1 > =X 
539 X=SX < J > = SX<J > =SX< J+1 > = SX< J+1 > =X 
541 W=1 
543 NEXTJ 

545 IFW=0THENRETURN 

547 IFL=1THENRETURN 

549 L=L—1 : G0T0529 

551 REM ORDINAMENTO DECRESCENTE 

553 REM *********************** 

555 L=K-1 

557 W=0 

559 FORJ=lTOL 

561 IFC$ <3>>=Ct<3+ 1>THEN571 

563 R*=C* < J • C t<3 > =Ct e; J+1 > = C* < 3 +1 > =R* 

565 X=TX< J> > TX<: J ’> = TX (. 3 +1 :> < TX<J+1>=X 
567 X=SX<J>•SX<J>=SX<J+1>:SX< 3+ 1>=X 
569 W=1 
571 NEXTJ 

573 IFW=0THEHRETURN 
575 IFL=1THENRETURN 
577 L=L-1 ; GQT0557 




Non ci sembra necessario riportare il commento di 
ARANDOMUSER. Esso e' infatti stato ricavato da 
ARCHIRANDOM, apportando alcune modifiche che elenchia¬ 
mo : 

. il settore che contiene i dati generali del disco 
non e' piu' quello di indirizzo 1,0; il suo indirizzo 
si trova nel primo record di INDI1. 

. i dati generali del disco non comprendono piu' 
l'indirizzo dell'ultimo settore scritto, ma e' presen¬ 
te il numero N dei record previsti e il numero K di 
quelli effettivamente presenti. 

. il file INDI1 deve essere trasferito nei 3 vettori 
ad esso riservati a partire dal secondo record. 

. il file INDI1 deve essere sempre ordinato e 
riscritto tutto, altrimenti si perdono gli indirizzi 
di traccia e settore. 

. i record di INDI1 non usati, chiave che inizia con 
CHR$(99), nell'ordinamento vanno in fondo, ma resta¬ 
no . 

. per cancellare un record si pone CHR$(99) all'i¬ 
nizio della chiave in INDI1. 

. se si crea INDI2 si deve lavorare su INDI1 ordi¬ 
nato, 1NDI2 viene preparato solo per i K record 
present i . 

. nella fase di aggiunta record si deve cercare in 
IND11 la prima chiave che inizia con CHR$(99), leg¬ 
gere il corrispondente settore e riscriverlo senza 
perdere i primi due caratteri di concatenamento. 

. nel programma non e' piu' presente la fase di 
in izializzazione , svolta dal programma INIZIOFILE. 

Se hai riflettuto bene 3u questo argomento, non ti 
sara' difficile adattare questi programmi per poter 
gestire anche record logici di lunghezza sottomul¬ 
tipla di un settore; solo che in questo caso l'indice 
deve contenere anche un campo che fornisca la posi¬ 
zione del record logico nel settore, da caricare nel 
puntatore al buffer. 


3.7 FILE RELATIVI DI DATI 

I file di questo tipo sono trattati dalle istruzioni 
del DOS per la gestione dei file relativi, elencate 
nel Paragrafo 3-2. 

La differenza tra 1 file random e i file relativi 
consiste nei seguenti fatti: 

. per accedere ai record di un file relativo si deve 



fornire al programma il numero d'ordine del record nel 
file, indirizzo logico, invece dell'indirizzo fisico 
del blocco. 

, i record logici devono essere di lunghezza fissa, 
che deve essere al massimo di 254 caratteri, compren¬ 
dendo i caratteri di fine campo e/o record. Pero’ la 
lunghezza può' essere anche un numero che non risulti 
sottomultiplo di 254 , infatti il sistema gestisce 
anche record logici registrati a cavallo tra due set¬ 
tori (spanned), come per i file sequenziali. 

I primi due caratteri di ogni settore sono usati, co¬ 
me al solito, per concatenare tra loro i settori. 

. il sistema, conoscendo la lunghezza di un record e 
il suo numero d'ordine nel file, ricava con un sempli¬ 
ce algoritmo l'indirizzo di traccia e settore neces¬ 
sario . 


. il sistema gestisce i file relativi con l'aiuto di 
un suo indice interno, che genera al momento della 
creazione del file, chiamato SIDE SECTOR. Esso e* for¬ 
mato al massimo da 6 settori numerati logicamente da 0 
a 5, che vengono utilizzati per contenere l'indice di 
tutti i blocchi fisici utilizzati per il file rela¬ 
tivo. In ogni blocco dell'indice SIDE SECTOR possono 
essere registrati gli indirizzi di 120 settori; per 
questa ragione il file relativo può' occupare al mas¬ 
simo 120*6-720 settori, che nel nostro caso sono di 
piu' di quelli disponibili su un floppy. Inoltre il 
numero dei record logici gestibili non può' superare 
65535, infatti e' espresso in due byte consecutivi. La 
struttura di un blocco SIDE SECTOR e' la seguente: 

. byte 0 e 1 , concatenamento al settore succes¬ 
sivo. 


. byte 
. byte 
. byte 
. byte 
. byte 
. byte 

3. 

. byte 

4. 

. byte 

5. 

. byte 
. byte 
( t, s ). 


2, numero del blocco, da 0 a 5. 

3, lunghezza del record logico, massimo 254 
4 e 5, traccia e settore del SIDE SECTOR 0. 
6 e 7, traccia e settore del SIDE SECTOR 1. 
8 e 9, traccia e settore del SIDE SECTOR 2. 


10 

e 

ii. 

tracci a 

e settore 

del 

SIDE 

SECTOR 

12 

e 

13, 

traccia 

e settore 

del 

SIDE 

SECTOR 

1 4 

e 

15, 

traccia 

e settore 

del 

SIDE 

SECTOR 

1 6 

e 

17, 

indirizzo 

primo settore 

dati 

( t , s ) . 


18 e 19, indirizzo secondo settore dati 





. byte 254 e 255, Indirizzo 120-esimo settore dati 
( t, s ) . 

. viene registrata una entrata nella directory che 
tiene conto di tutti i blocchi occupati, file e side 
sector. Inoltre nell'entrata e' indicato l'indirizzo 
del primo settore del side sector. 

. il file può’ essere creato scrivendo i record in 
ordine casuale; in conseguenza possono restare dei 
record non usati, che il sistema riempie scrivendo 255 
(FFH) nella prima posizione e tutti bit 0 nelle altre. 

. il sistema usa un buffer in piu' per gestire il 
file, infatti deve leggere anche il side sector. 

. e' consigliabile preestendere il file in fase di 
creazione; questo rende piu' veloci le operazioni 
successive. Per preestendere il file basta scrivere 
l'ultimo record; infatti pensa il sistema a predi¬ 
sporre tutti i precedenti e a creare n numero di 
blocchi di 3ide sector necessari. 

Anche per i file relativi sussiste il problema 
dell'accesso ai record, già' esaminato per i file ran- 
dom. L'indice SIDE SECTOR creato dal sistema serve so¬ 
lo per gestire i blocchi fisici. In conseguenza un 
buon programma di gestione di un archivio deve creare 
anche un indice sequenziale per chiavi di accesso; in 
questo caso l'indice può' essere formato solo da due 
campi: chiave di accesso, numero d'ordine del record 
nel file. 

Seguono 4 programmi esempio che consentono di capire 
come si usano i comandi del DOS per i file relativi; 
essi sono: 

. FRELCREA, per preestendere un file, 

. FRELSCRIVI, per scrivere record in un file, 

. FRELLEGGI, per leggere record da un file, 

. FRELCAMP0LEGG1, per mostrare come si può’ accedere 
a un campo e non a tutto il record. 

Questi programmi gestiscono un file relativo di nome 
PROVA REL, formato da 30 record logici di 21 carat¬ 
teri ciascuno. Ogni record comprende 2 campi, il pri¬ 
mo di 10 caratteri + fine campo (CHR$( 13 )), e il 
secondo di 9 caratteri + fine campo. 

Dopo aver fatto girare i singoli programmi puoi 
analizzare il contenuto della directory e dei blocchi 
occupati per verificare quanto sopra esposto, usando i 
programmi di utilità' DCOMEFS e TRAC/SET. 

Osserva in ogni programma come avviene la prepa¬ 
razione del numero del record e del puntatore al cam¬ 
po. 



I REM FRELCREA 
3 REM ******** 

5 REM CREAZIONE FILE RELATIVO 
? REM PREESTEHSIOHE FILE 
9 REM 30 RECORD DI 21 CARATTERI 

II REM COMPRESO RETURN FINALE 
13 REM COMPRESO RETURN FINALE 

15 REM ************************* 

17 DR*="0":NF*=DR*+" PROVA REL,L,‘‘ 

19 SA=2 ^ LF=2 ^ RC*="-" = RC*=RC$+RC* 

21 BI=1 ; NR=30 LU=21 
23 OPEN15,8,15,”I" 

25 REM APERTURA FILE 
27 REM ************* 

29 OPENLF, 8, SA, NFT+CHRt < LU > 

31 G0SUB73 

33 REM PREESTENSIONE FILE 
35 REM PER NR RECORD 
37 REM ****************** 

39 FORX=NRTGlSTEP-1 

41 HI = INT <X/256 > =LO=X-H1*256 

43 Cf="P"+CHRf<SA> 

45 REM NUMERO RECORD CBVTE BASSO + B't'TE ALTO > 
47 REM ************************************** 
49 C*=C*+CHR$ <LO > +CHR* <HI> 

51 REM PUNTATORE AL PRIMO BYTE DEL RECORD 
53 REM ********************************** 

55 C$=C$+CHR$<BI> 

57 REM POSIZIONA IL PUNTATORE 
59 REM ********************** 

61 PRINT#15,C$^G0SUB73 

63 REM SCRIVE IL RECORD DI LINEETTE 

65 REM **************************** 

67 PRI NTttLF, RCt ■■ OOSUB73 
69 NEXTX^CLOSELF:00SUB73 : CL0SE15=END 
71 REM ROUTINE ERRORE 
73 REM ************** 

75 INPUT#15,EH,EM*,ET,ES 
77 IFEH=0OREN=50THENRETURH 
79 F'RINTEN;EM$;ET.;ES 
81 STOP ; RETURN 


I REM FRELSCRIVI 
3 REM ********** 

5 REM SCRITTURA RECORD NEL FILE 
7 REM RELATIVO, OGNI RECORD 2 CAMPI 
9 REM HOME DI 10 CARATTERI 

II REM TELEFONO DI 9 CARATTERI 

13 REM LUNGHEZZA RECORD=10+l+9+l=21 
15 REM **************************** 
17 DR$="0"=NF*=DR$+": PROVA REL,L," 
19 LU=21 : SA=2 : LF=2 : B$=" 

21 BI=1 ; HR=30 
23 OPEN15,8,15,"I" 

25 REM APERTURA FILE 
27 REM ************* 

29 OPENLF, 8, SA, NF$+CHR$ < LU ;■ 




31 G0SUB71 

33 PRINT"N0ME=* PER USCIRE" FRINT 
35 IHPIJT " HOME C 10 > " ; Hi 
37 IFNT="*"THEN69 
39 HT=LEFTT<NT+BT,1©> 

41 IHPUT"TEL. C9>“ ;TT : TT=LEFTT < TT+BT, 9 > 
43 IHPUT"RECORD ";R 

45 IFR=0ORR>HRTHEHPRINTCHRT<145 >; =001043 
47 REM PREFARAZIOHE PUNTATORE 
49 REM ********************** 

51 HI = IHT C R/256>; LO=R-HI*256 
53 C*= ,, P"+CHR#<SR> 

55 CT=CT+QHRT<LQ >+CHRT<HI> 

57 CT=CT+CHRT < 8 ! > 

59 F'R I HT# 15, CT ■■ G0SUB71 
61 REM SCRIVE RECORD 
63 REM ************* 

65 PRINT#LF, HT ; CHRT < 13 ; TT = GOSUB71 
67 G0T033 

69 CLtiSELF : GOSUEì ? 1 : CL0SEÌ5 ; EHD 

71 REM R0UTIHE ERRORE, ACCETTA COD. 5© 

73 REM ******************************* 

75 IHPUT#15,EH,EMT,ET,ES 
77 IFEN=©0REN=5©THENRETURN 
79 F'R IHTEH ; EMT ; ET, ES 
SI STOP : RETURN 


I REM FRELLEGGI 
3 REM ********* 

5 REM LETTURA RECORD 
7 REM ************** 

9 DR*="0"NFT=ORT+" PROVA REL,L," 

II LU=21 : SA=2 LF=2 
13 BI=1 : HR=3© 

15 QFEN15,8, 15," I " 

17 REM APRE FILE 
19 REM ********* 

21 OPENLF,8,SA, NFT+CHRT<:LU> 

23 G0SUB61 

25 PRIHT"RECORD=0 PER USCIRE”=PRINT 
27 INPUT"RECORD ";R 
29 IFR=©THEN59 

31 IFR<0ORR>NRTHENPRINTCHR*<1453$=G0T027 
33 REM PREPARA PUNTATORE 
35 REM ***************** 

37 HI = I NT (. R/256 > : LO=P.-H 1*256 
39 CT="P"+CHRT<SA> 

41 CT=CT+CHRT <LO > +CHRTCHI> 

43 CT=CT+CHRT<BO 
45 PF: I NT#15, CT : G0SIJB61 
47 REM LEGGE RECORD 
49 REM ************ 

51 INPUT #LF,HT,TT = G0SUB61 
53 F'RINT "NOME : " ; NT 

55 F'R I NT "TEL. = " ; TT 
57 GQTQ25 

59 CLOSELF=G0SUB61=CL0SE15=END 


1 39 



61 REM ROUTINE ERRORE, AMMETTE COD. 50 
63 REM ******************************* 
65 INPUT# 15, EN, EM*, ET , ES 
67 IFEH=0OREN=50THENRETURN 
69 PRINTEH;EM*•ET ;ES 
71 STOP : RETURN 


I REM FRELCAMPOLEGGI 
3 REM ************** 

5 REM LETTIJRFl SOLO DEL SECONDO CAMPO 
7 REM DI UN RECORD R 

9 REM ****************************** 

II DR*="0" NF*=DR*+"=PROVA REL,L," 

13 LIJ=21 ; SA=2 : LF = 2 

15 BI=12NR=30 
17 INPUT"RECORD ",R 

19 I FR=0ORR>NRTHENPR IHTCHR# < 145 > : GOTO 1 

21 OPEN15,8,15,"I" 

23 REM APREFILE 
25 REM ******** 

27 OF'EHLF, 8, SA, NFT+CHR# C LU > 

29 G0SUB55 

31 REM PREPARA PUNTATORE 
33 REM ***************** 

35 HI = INT<R/256>=LO=R-HI*256 
37 C*= " P " +CHR* < SA 
39 C$=C$+CHR* C LO> +CHRTCHI> 

41 CT=Cf+CHRT C BI ;■ 

43 PRINT# 15, Ct ■■ G0SUB55 
45 REM LEGGE CAMPO 
47 REM *********** 

49 I NF'UT#LF, T$ = G0SUB55 
51 PRINT"TEL. : " ; T* 

53 CLOSELF « G0SUB55:CLOSE15 = END 

55 REM ROUTINE ERRORE, AMMETTE COD. 50 

57 REM ******************************* 

59 INPUT#15,EH,EMT,ET,ES 

61 IFEN=0OREN=50THEHRETURN 

63 PRINTEN .i EM$,ET,-ES - - 

65 STOP = RETURN 



TI facciamo notare che la routine di errore scarta il 
codice 50, che in questo caso non e' un errore. 

Il programma FLCREA preestende il file senza dividere 
il record in campi. Il puntatore deve avere il valore 

I per iniziare a scrivere il record. 

Nel programma FRELSCRIVI il record viene scritto con 
una sola PRINT# che ha nella lista-dati tutti i campi 
con i loro separatori. 

II programma FRELLEGGI legge i due campi del record 
con una sola INPUT# in due variabili. 

Nel programma FRELCAMPOLEGGI invece il puntatore vie¬ 
ne posto a 12 per leggere solo il secondo campo del 
record. 

Abbiamo modificato il programma ARCHIRANDOM per otte¬ 
nere ARCHIRELATIVO, che gestisce un file relativo con 
indice principale e secondario. In questo caso i dati 
generali dell'archivio, che erano memorizzati nel set¬ 
tore 0 della traccia 1 , sono memorizzati in un pic¬ 
colo file sequenziale di nome DATIGEN, sul disco dati, 
che viene creato quando si crea ex-novo l'archivio, e, 
ad ogni elaborazione, viene letto all'inizio e aggior¬ 
nato alla fine. Per il resto abbiamo lasciato inva¬ 
riata la struttura del record e dei campi. Inoltre, 
nella fase di creazione dell'archivio, i record sono 
caricati in sequenza, senza chiedere il numero del 
record, come e' stato fatto in FRELSCRIVI. 


I REM ORCHIRELATIVO 
3 REM ************* 

5 REM DEFINIZIONE COSTANTI E VARIABILI 
7 REM ******************************** 

9 NC=14 : REM NUMERO CAMPI RECORD 

II S1*="DATA ULTIMO AGO. 

13 S2$="FIMITO SPAZIO ASSEGNATO" 

15 SP$=""^ FORK=1T079 = SP*=SP*+" "= NEXTK 
17 SUW=0 REM PER EVITARE RIDIMENSIONAMENTO 
19 CH*=CHR*<13>= LIM*=CHR*<99> +CHR*<99> +CHR*<99> 


21 

D I MDT C NC >^ DIM 

t'^CHC) : D IML < 

NO 

CL-—' 

DATA"COGNOME = 

1 , "NOME 

.."INDIR. = 

25 

DATA"CITTA 

‘ ,"PRQV. 

,"TELEF. 

27 

DATA"L.NASC. = 

', "D.NASC. ^ " 

, "T. STIJD. ■ 

29 

DATA"OCC.AT.■ 

■ ,"OCC.PR. = " 

,"ST.CIV. ^ 

31 

DATA"NOTA 1 : 

' ,"NOTA 2 : " 



33 DATA20,15,30,25,11,10,20,S,20,20,20,1,20,20 


35 FORJ=1TONC:READD*<J>■NEXTJ 


37 FQRJ=1TONC:READL< J>:NEXTJ 
39 REM PRESENTAZIONE MENU' E SCELTE 
41 REM **************************** 









43 CL08E15 = OPEN15,S,15 

45 FRI NT ":3MB]" ; TfìBC 10> ; "GESTIONE ORCHI V IO" ; FRI NT 
47 PRINTTAB<10>"1=INIZIO EX-NOVO" 

49 PRIHTTRBC 10"2-AGGIORNAMENTO" 

51 PRINTTABC 10> "3=LISTR PRINCIPRLE" 

53 PRIHTTRB<10>"4=CRERZ.INO.SEC." 

55 PRINTTAB<10>"5=LISTA SECONDAR IR" 

57 PR INTTRB ■:! 10> " 9=F I NE " 

59 INPUT"COSA SCEGLI " X 

61 IFX< 10RX>5AN0XO9THENPR.INT"71" ; G0T059 
63 F’RINT ; G0SUB297 

65 R$ = " “: FRINTTRB<10>"MONTA DISCO DRTI" 

67 GETR$:IFR$—""THEN67 
69 IFX=1THEN91 
71 PRINT#15,"I" 

73 GOSUB259 : PR INT " PRESENTI " ; K" RECORD" 

75 NN*=N*+",L,"+CHRT<254 > 

77 PR IHTS1 *, G1 * ; ", ' " , M1 $ ; " / " ; R1 $ 

79 R$="":GETRT•IFR$=""THEN79 
81 IFSWW=0THENDIMC*<N>,TKCN> 

SS G0SUB273 

85 IFX=9THEN561 

87 ONX— 1GOT0361.-491,523,543 

89 STOP 

91 REM INIZIO EX-NOVO ARCHIVIO 
93 REM *********************** 

95 FRINT"POSSO FORMATTARE IL DISCO DOTI S/N" 

97 R$="":INPUTR*^IFR*=""THEN97 
99 IFR$="S"THEN103 
101 STOP 
103 G0SUB323 

105 INPUT"«NOME FILE DA INIZIARE : ";N* 

107 INPUT"QUANTI RECORD IN TUTTO : ";H 
109 DIMC*<N>,TX <N >=SWW=1 
111 REM PREPARAZIONE CAMPI DUMMV 
113 REM ************************ 

115 P1 X = " * " : FOR J= 1T052 = P1 $=P 1 *+ " " = NEXT J 
1 17 P2$=LEFT$ < P1%,37 ;■ 

119 REM PREESTENSIONE FILE N* 

121 REM ********************* 

123 OPEN11,8,11,H*+" , L,"+CHR* <254 > 

125 FORJ=NTO1STEP-1 

127 HI = INT < J/256> LO=J-H1*256 

129 C*="P"+CHR$C11>+CHR*<LO>+CHR$<HI>+CHR*<1> 

131 PRINT#15,CT^G0SUB285 

133 PR I NT# 11, P1 *CH$P 1 #CH$F‘ 1 $CH*P 1 *CH$P2$CH$ ; 

135 GGSUB285 

137 NEXTJ:CLOSE11 :G0SUB2S5 
139 REM PREPARAZIONE INDICE 
141 REM ******************* 

143 FOR J=1TON: TX<J> =J 

145 C*( J>«LIM*=NEXTJ 

147 GOSUB177 REM SCRIVE INDI1 

149 K=0 ^ ÙUSUB221 • liÙ 1 U43 

151 REM INGRESSO DATI 

153 REM ************* 

155 FRI NT " 711NGRESSO DATI" 

157 FORJ=1TONC: V*<J > = ""=NEXTJ 

159 PRINT"PER USCIRE t PER COGNOME"; 

161 PR INTRISE MANCANO DATIPREMI SOLO RETURN" 

163 PRINTD*<1>; =INFUTVT<1> 

165 IFV*1>="*"THENW=1=RETURN 

167 F0RJ=2T0NC PRINTO*<J>;’INPUTV*<J> : HEXTJ 

169 REM SISTEMA LUNGHEZZA DATI 
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REM ********************** 

FOR J= 1TONC : Yt < .J 0 =LEFTt < Vt < J > +SPt <LCJ)> 

NEXTJ : G0SUB439 : RETURN 

REM SCRITTURFl INDICE PRINCIPRLE 

REM *************************** 

PRINT#15,"S0 : INDÌ1"= PRINT#15,"I" 

OPEN 10>8> 10, " INDI US<M“ : G0SUB285 
F0RJ=1T0N 

PRINT#l 0 , et <: J > ; CHt ; T v. <: j > ; CHt ; 

G0SUB285:NEXTJ 
CLOSE10-RETURN 

REM SCRITTURO RECORD PUNTATO 
REM COSTRUZIONE STRINGO DI STOMPO 
REM ***************************** 

Ct="" ; FORJ=1 TONC 

Vt<J>=LEFTt <Vt< J0 +SPt,L < J>> 

Ct=Ct+Vt<J > +CHt:NEXTJ 
PRINT#11,Ct;=GQSUB285 
RETURN 

REM DEFINISCE POSIZIONE RECORD K 
REM **************************** 

HI=INT<T/256> 

LO=T-H1*258 

PRINT#15,"P"+CHRt C11> +CHRt <LO >+CHRt < HI> -t-CHRt <1 
G0SUB285: RETURN 
REM SCRITTURO DOTIGEN DISCO 
REM *********************** 

PRINT#15,"S0^DOTIGEN" 

PRINT#15,"I" 

OPEN10,8,10,"DOTIGEH,S,W" ; G0SUB285 
PRINT#10,HtCHtGtMtOtCHt;N;CHt;K;CHt 0 
CL0SE10 : RETURN 

REM RICERCO POSTO NELL'INDICE 
REM *******#$****#*********** 

JJ=0=FORJ=1TON 

IFLEFTt <:Ct C J> , 1 > =CHRt < 99 > THEN 245 

NEXTJ=RETURN 

JJ=J^ J=N^G0T0243 

REM LETTURO RECORD 

REM ************** 

PRINT#15,"I": OPEN11,8,11,NNt•G0SUB285 
GOSUB209 

FORT=lTONC=INPUT#11,Vt<J>:G0SUB285 
NEXT J:CLOSE11 : RETURN 
REM LETT.DOTI DISCO 
REM *************** 

OPENIO,8,IO,"DOTIGEN,S,R"=G0SUB285 
INPUT#10,N*,R*,N,K = G0SUB285 
CLOSE10^ GQSUB285 
G1*=LEFTt<Rt, 2)' MIt=MIDt<Rt,3,2> 

R11=RIGHTt<Rt,2>: RETURN 
REM LETT. INDICE 
REM ************ 

OPEN10,8,1O,"IHDI1,S,R"•G0SUB285 
F0RJ=1T0N 

INPUT#10,Ct<J>,TX C J>:G0SUB285 
NEXTJ=CLOSE10=RETURN 
REM ROUTINE ERRORE 
REM ************** 

INPUT#15,EN,EMt,ET,ES 
IFEN=0GREH=50THENRETURN 
PR INT " «ERRORE DI SCO " 

PRINTEN,EMt,ET ,ES ; CLOSE15: STOP 
REM DOTO DISCO 



Il" GÌ, Mi, Ai : RETURN 


299 REM ********** 

301 FRINT"DOTA PER DISCO" 

303 I NF'IJT " GG, MM, RRIIIHI 
305 REM SCRITT. INO. SEC. 

307 REM ***************** 

3Ù9 PRI NT#15,"SINO12"=PRINT#15,"I" 

311 OPEN1O,S,10,"INOI2,S,W" 

313 FORJ=lTOK 

315 PRINT#10.. CÌ<J> i CHì; TK<J> ; CHi; 

317 G0SUB2S5 NEXTJ:CLOSE1G: RETURN 
319 Rì=" " • GETRÌ : IFRÌ=" "THEH319 
321 RETURN 

323 REM INIZIP>L IZZAZ IONE DISCO 
325 REM ********************** 

327 PRINT"NOME DISCO";=INPUTNÌ 
329 PRINT#15,"NO■"+NÌ+",99" 

331 CLOSE15 ^ OPEN15,8,15 : FRINT#15,"I" 

333 RETURN 

335 REM NUOVI ORTI 

337 REM ********** 

339 OPEN11,8,11,UNÌ‘G0SUB285 
341 GOSUB151 

343 IFW=1THENK=K—1 :CLOSE11=G0T0561 

345 G0SUB235:IFJJ=0THENSTOP REM STOP IMPOSS. 

347 T=T"-: C J J > : GOSUB209 • GOSUB 193 

349 REM RGGIORNAMENTO INDICE 

351 REM ******************** 

353 Ci <J..T > =VÌ e: 1 :> +'Vi < 2 > 

355 K=K+1 

357 I FK>NTHENK=K-1 ; F'R INTS2Ì : CLOSE 11 G0T0561 

359 G0T0341 

361 REM RGGIORNAMENTO 

363 REM ************* 

365 PRINTTABC10>,"IMWKGGIORNAMENTO ARCHIVIO" 
367 FRINT = PRINTTABC10>,"1«CORREZIONE" 

369 PRINTTABC10>;"2=AGGIUNTA ELEM." 

371 PRINTTAB<10>;"3=CANCELL.ELEM." 

373 FRINTTAB<19);"9=FINE" 

375 INF'UT"COSA SCEGLI " X : IFX=9THEN561 

377 IFX<1ORI C 3THEN365 

379 IFX=2THEN461 

331 IFX=3THEN475 

383 G0T0417 

385 REM RICERCA RECORD 
387 REM ************** 

389 F'R I NT " H" : Di C 1 > ; : Vi < 1 ■< = ""■■ I NPUTVi C 1 > : W=0 

391 IFVÌ<1>="♦"THENW=1••RETURN 

393 PRINTDi< 2 >; =Vi<2 > = "" = INPUTVi<2> 

395 Vì< 1 >=LEFTÌ<VÌ< 1 >+SPi,L< 1 > > 

397 ViC 2 > =LEFTi<Vi<2 >+SPÌ ,LC2>> 

399 INPUT"DUALE OCCORRENZA " ; X 
401 IFX<=0THENPRINT"n" ; =G0T0399 
403 FORJ=lTOK = IFCÌ < .J > =VÌ< 1 >+VÌ<2>THEN411 
405 NEXTJ 

407 J=T-1 : PRINT"NON TROVATO " ; Vi< 1 > ; " “ ;Vì<2> 

409 G0SUB319 :G0T0385 

411 IFXO1 THENX=X-1 : GOTO405 

413 T=TX<J> 

415 I=J J=K■NEXTJ = RETURN 
417 REM CORREZIONE 
419 REM ********** 

421 G0SUB385 IFW=1THEN365 
423 G0SUB247 

425 REM VA A MODIFICA DATI 







427 

429 

431 

433 

43S 

437 

439 

441 

443 

445 

447 

449 

451 

453 

455 

457 

459 

461 

463 

465 

467 


469 

471 

473 

475 

477 

479 

4SI 

463 

435 

487 

489 

491 

493 

495 


497 


499 

501 

503 

505 

507 

509 

511 

513 

515 

517 

519 

521 

523 


527 

529 

531 

533 

534 

535 
537 
539 
541 
543 
545 
547 
549 
551 


REM ****************** 

G0SUB439 

PRI NT415.. " I " ■ 0PEN11,8,11, NN* 

GOSUB209 ^ GOSUB193 
C*<I )=WS(. 1>+V*<2> 

CLOSE11 ; G0T0417 

REM CONTROLLO OPTI E MODIFICHE 
REM ************************** 

PRINT"^CONTROLLO ORTI E MODIFICHE" 

FOR J= 1TONC : PRINTJ " " ; D$ < J > ; " " J WS < J > ■■ NEXTJ 
INPUT"WTUTTO BENE S/N ";XS IFX*="S"THENRETURN 
PRINT"QURLE CRMPO <0 USCITAV;=INPUTX 
IFX=0THENRETURN 

IFX>NCORX<1THENPRINT"m"=G0T0447 
V*<X>="" 

INPUTY* <: X > WS<. X > =LEFT* < V* < X > +SP*, L <X > > 

G0T0443 

REM AGGIUNTA 

REM********* 

PRINT"RAGGIUNTA NUOVI RECORD" 

PRINT"PRESENTI ",K;" RECORD" 

PRINT"PUÒI AGGIUNGERE ";N-K;" RECORD" 

G0SUB319 

W=0 = K=K+1 :G0T0335 
REM CANCELLAZIONE 
REM ************* 

M=0 

G0SIJB3S5 ; IFW=1THEN4S7 

X=L<: 1 >+L<2 ■' : CSC. I > =LEFT % < LI Mi+SF'T+SPT, X> 


M=M+1•G0T0481 
REM SIST. INDICE 


G0SUB581=K=K-M=G0T0573 


REM LISTA FILE 
REM ********** 

T$="LISTA PER INDICE PRIM." 

PRINT"ACCENDI STAMPANTE PRFMI UH TASTA" 

GETR* IFRJ=""THEN499 

PRINT"ZJ" T* : 0PEN4,4 

PRINT#4 = PRINT#4 ^PRINT#4,T$ 

FORJ=1TO10■PRINT#4=NEXTJ 

L=2 ^ FORI = 1TDK :T=TX<I>=G0SUB247 

PR I NT#4 , WS < 1 :•, " " WS < 2 > 


PR I NT#4, WS < 3 > ; " WS < 4 > ; " " WS < 5 > 

F0RM=6T0HC:PRINT#4, DS <M>;Y*<M>=NEXTM 
PRINT#4:PRINT#4 
IFL=5THENPRINT#4:L=0 
L=L+1 NEXTI 
CL0SE4=GOTO575 

REM CREAZIONE INDICE SECONDARIO 
REM *************************** 

PRINT"niNDICE SECONDARIO" 

INPUT"MEHJALE CAMPO " ; X* 

X=VAL C y,S > ■■ IFX<20RX>NC THENG0TO529 

FORI = 1TOK = T=TX<I> =G0SUB247 

IFLEN< WS< X>>=0THENVtCX>=CHR$ <160> 

C*'::i>=V*00 : NEXTI 

GOSUB305^ G0SUB273 

F'R I NT " FINI TO I ND. SEC. " 

G0T0575 

REM LISTA PER INDICE SECONDARIO 
REM *************************** 
PRIHT"n_ISTA IND. SEC." 

OPEN10,8,10,"INDI2,S,R"•G0SUB285 
FORJ=lTOK ■ INPUT# 10, C$<J>, TX< J> 



553 G0SUB285=NEXTJ 

555 CL.OSE 16 ‘ GGSUB607 : GOSUB305 

557 T$="LISTA INO. SEC. " 

559 G0T0497 
561 REM CHI USURPI 
563 REM ******** 

565 FRI NT "CHI USURPI ARCHIVIO" 

567 FRINT"ma ORDINA INDICE INGI1" 

569 FRINT" ATTENDI CON PAZIENZA" 

571 G0SUB581 

573 G0SUB177 : G0SUB221 

575 FRINT"FINITO AGGIORNAMENTO" 

577 FRINT"SONO PRESENTI " iKi" RECORD" 

579 CLOSE15 ; STOP 

581 REM ORDINAMENTO CRESCENTE 

583 REM ****.*♦*************** 

585 L=N—1 

587 W=0 

589 FORJ=lTOL 

591 I FCi J > <=C1 c: J+1 ;■ THEN599 
593 R*=C*<J>=C*<J >=C$<J+1>=C*<J+1> =R* 
595 X=TX ■' J > : TX < J > =TX < J+1 : TX < J+1 > =X 
597 W=1 
599 NEXTJ 

601 IFW=0THENRETURN 

603 IFL=1THENRETURN 

605 L=L-1 : G0T0587 

607 REM ORDINAMENTO DECRESCENTE 

609 REM *********************** 

611 L=K—1 

613 W=0 

615 FORJ=lTOL 

617 IFC* C J 5 >=C*<J+1>THEN625 
619 R*=C*<J> C*CJ>=C*<J+0=C*<J+1>=R* 
621 X=TX< J>=TX<J>=TX<J+l>=TX<J+1>=X 
623 W=1 
625 NEXTJ 

627 IFW=0THENRETURN 
629 IFL=1THENRETURN 
631 L=L-1G0T0613 


Non riportiamo per esteso il commento al programma, ma 
segnaliamo le parti che riguardano il trattamento del 
file relativo. 

. 111 / 137 : preestensione file nella fase 1 del menu'. 

. 193/207: viene preparata la stringa di scrittura di 
un record logico con tutti i campi. 

. 209/219: definizione posizione record e punta¬ 
tore. 

. 235/245: ricerca posto nell'indice. 


Anche per questo archivio devi fare delle conside¬ 
razioni sull’occupazione di memoria e la quantità* di 
record trattabili, come per il file random. 



A questo punto pensiamo che lo studio dei diversi 
programmi di archivio presentati ti potrà' garantire 
una buona conoscenza dei diversi tipi di file gesti¬ 
bili e potrai, o modificare i programmi per adattarli 
alle tue esigenze, o prepararne altri, magari serven¬ 
doti di alcune delle routine da noi utilizzate. 

In questo capitolo non ci siamo preoccupati di presen¬ 
tare quadri video particolarmente belli, potrai 
migliorare tu le situazioni, usando anche i colori. 
Inoltre, se vuoi, potrai controllare l'ingresso dati, 
con apposite routine, per evitare segnalazioni di 
errore che deturpano i quadri video. 


3.8 PROGRAMMI DI UTILITÀ' 

Si definiscono tali i programmi che sono di aiuto 

durante il lavoro di programmazione. Nella scatola 
dell'unita' 1541 si trova anche il dischetto 

TEST/DEMO, che contiene alcuni programmi di utilità'. 
Riportiamo un breve commento ad alcuni di essi. 

C-64 WEDGE carica il DOS 5.1; dopo averlo fatto gira¬ 
re sono attivi i seguenti comandi: 

. /nome-programma, per caricare un programma dal 

dischetto. 

. > oppure @, per visualizzare lo stato delle 4 

variabili di errore disco. 

. >$ oppure @$, per visualizzare la directory sul 
video, senza cancellare il programma presente in memo¬ 
ria . 

Il programma resta attivo fino a quando togli corren¬ 
te . 


COPY/ALL ti permette di eseguire la copia dei dischet¬ 
ti collegando 2 unita' 1541. Devi cambiare il "dn" di 
una di esse da 8 a 9, con il programma DISK ADDR 
CHANGE. Il cambio di unita’ resta valido fino a quan¬ 
do togli corrente. Prima di eseguire una copia convie¬ 
ne proteggere il disco sorgente chiudendo la 
finestrella laterale. 

In commercio esistono programmi che consentono di 
eseguire la copia dei floppy anche disponendo di una 
sola unita'; viene richiesto con un messaggio di scam¬ 
biare i floppy quando e' necessario. 

DIR serve per: leggere e listare la directory, esegui¬ 
re comandi del DOS, visualizzare le 4 variabili di 
errore. Il programma presenta un certo interesse per 



le tecniche di programmazione usate. La directory vie¬ 
ne aperta come file "$0" sul canale 0, con lfn-1 e poi 
letta con GET#1 , carattere per carattere. 

V1EW BAM visualizza sul video la BAM in due quadri 
video, come una matrice, riportando sull’asse orizzon¬ 
tale le tracce e sull’asse verticale i settori. Il 
programma contiene un'imperfezione, infatti nelle 
tracce da 18 a 24 sono mostrati senza l'annullamento 
N/L, ma come occupati, i settori 19 che non esisto¬ 
no . 

CHECK DISK controlla se il dischetto ha settori rovi¬ 
nati, ma risulta molto lento, dopo aver segnalato 
eventuali settori rovinati lascia il dischetto tutto 
occupato. Andrebbe eseguito il comando COLLECT o 
VALIDATE e bisognerebbe escludere i settori rovinati 
marcandoli come occupati sia nella BAM che nella 
directory. 

DISPLAY T&S serve per visualizzare o su video o su 
stampante il contenuto di uno o piu' settori del flop¬ 
py. Vengono mostrati a sinistra i contenuti esade- 
cimali e a destra i caratteri di stampa. In certi ca¬ 
si va in crisi; puoi premere RESET mentre tieni pre¬ 
muto RUN/STOP, poi uscire dal MONITOR con X e ripar¬ 
tire. 

Riportiamo ora alcuni programmi di utilità' preparati 
da noi. 

DCOMEFS stampa la BAM e la directory. Nella prima par¬ 
te vengono evidenziati i 3b gruppi di 4 byte dedicati 
alla BAM, vedi descrizione del Paragrafo 3.1. Dopo so¬ 
no stampate le informazioni relative ad ogni entrata 
della directory. 

Il programma manda l'uscita alla stampante, puoi diri¬ 
gerla al video modificando la linea 30 in OPEN4.3. 


5 REM DCOMEFS 

10 T*<0> = "DEL"^ Ti<1> = "SEQ"=T*<2> = "PRG" 

15 Ti C 3> = "IJSR" : Ti < 4 > = " REL " 

20 CLOSE15 ^OPEN15,8,15,"I" 

£5 0PEN2,8,2,"i": REM APERTURA FILE DIRECTORY 
30 0PEN4,4 ; REM APERTURA STAMPANTE 

35 PRINT44,"STAMPA DIRECTORY COME FILE SEQUENZIALE" 
40 PRINT#4 

45 REM LETTURA PRIMI 2 


BYTE 



50 I=2 :GOSUB230 

55 REM LETTURA BAM 

60 F0RK=1 TO 35 = PRIHT#4 > K;" "; 

65 1=4 ; GOSUB230 
70 NEKTK PRIHT#4 
75 REM LETTURA HOME DISCO 
80 1=18 : GOSUB205 
85 PRIHT#4, NT.; " " ; 

90 REM LETTURA ID 
95 I=2=GOSUB205=PRINT#4,UT 
100 REM LETTURA ALTRI 7 BYTE 
105 1=7■GOSUB23G 
110 PRINT#4 

115 REM LETTURA ALTRI 85 BYTE 
120 FORK= 1T085 ■■ GET#2 > AT : NEXTK 
125 PRIHT#4 
130 F0RJ=1T08 
135 GET#2,TT,AT,BT- 

140 IFSTTHEHCL0SE2=CL0SE4:CL0SE15■STOP 
145 IFTT=""THENTT=CHRT-C123 > 

150 1=16 
155 GOSUB205 

160 PRIHT#4,Tt<ASC CTT >-128 >;" " ; 

165 PR I HT#4.. ASC < AT+CHRT < O ;■ > , ASC <BT+CHRT <0 > > : 

170 F'RINT#4,HT 

175 1=3 GOSUB230 

180 FORK=1T04:GET#2,HT=NEXTK 

185 1=2 :GOSUB230 

190 I=2 ; GOSUB230 

195 IFJCSTHEHGET#2,AT,AT 

200 HEXTJ=GOTO130 

205 REM COSTRUZIQHE STRIHGA 

21O HT="":FORL=1TOI 

215 GET#2,LT- 

220 IFLTOCHRT<96>THENIFLTOCHRT < 160 > THEHHT=NT+LT 
225 HEXTL:RETURH 

230 REM LETTURA E STAMPA GRUPPO BVTE 
235 FORL=1TOI 

240 GET#2, AT : PR I HT#4, ASC < AT+CHRT <0 > 3 
245 HEXTL=PRIHT#4 
250 RETURH 


CONTRDISCO controlla se sono registrati bene sul disco 
i file di tipo SEQ e PRG, ma non controlla i file di 
altro tipo. Ogni volta che controlla un blocco fa 
apparire un pallino sul video. Se un file non e' in 
ordine ti chiede se vuoi cancellarlo. Se rispondi S, 
lo cancella e esegue il comando VALIDATE, se rispondi 
N si ferma. 


5 REM COHTRDISCO 

10 REM —COSTANTI E VARIABILI— 

15 M1T="*************#" : FI=0 
20 M2T= ":«!FILE NON CORRETTO i M" 

25 M3T="MTUTT0 IN ORDINE ...» SPERO 
30 REM —APRE CANALE 15 CON LFH=1— 
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OPEN1,8,15,"I" 

REM —APRE CANALE 2 PER DIRECTORV— 

0PEN2,8,2,"#" 

REM —APRE CANALE 3 PER FILE— 

0PEN3,8,3,"#" 

REM —FUNE. PER PUNTARE ENTRATE DIRECTORV- 

DEFFNF<X>=2+32*X 

REM —PRIMO BLOCCO DIRECTORY— 

TD=18=SD=1‘GOSUB350 

REM —ELABORA UNA ENTRATA— 

FIT="" ; CB=0 

REM —PUNTATORE A INIZIO ENTRATA— 

PRINT#1,"B-P 2,"FNF<FI> 

REM —LEGGE TIPO FILE CHE VA IN TV— 

GET#2,At- ^ G0SUB385 = TY=ASC< AT > 

REM —LEGGE INO. INIZIO FILE, TR E SC— 
GET#2,AT,B*;GOSUB380■TR=ASC<A#><SC=ASC<B* 
REM —LEGGE NOME FILE— 

FORI=ITO16^GET#2, AT- FIT=FIT+AT 

I FAT=CHRT160> THENFI T=LEFTT < FI T, I-1 > I = 16 

NEXT 

REM —PUNTATORE AI 2 BYTE CONT. BLOCCHI— 
PR I NT# 1 , " B-P : 2, " FNF < FI > +28 : GET#2, AT, BT 
REM —NB='v'CONTATORE BLOCCHI — 

GOSUB380 = NB=ASC < A# > +ASC < B» > #256 
REM —CONTROLLO TIPO FILE 1 0 2— 

IFTVO0THENT Y=TY-128 

IFTY02ANDTV01THEH310 

IFT VO2AN0T VO1THEN85 

REM —CONTROLLO BLOCCHI FILE— 

PR I NT " rUttld" MIT 

PRINT"CONTROLLO FILE"=PRINTM1T"WWW" 

PR INTTAB < 10 > FI T " MW" 

REM —LEGGE BLOCCO FILE— 

PRINT#1,"B-R•3,0,"TR, SC 

REM —LEGGE BYTE CONCATENAMENTO— 

PRIHTttl,"B-P 3,0" 

CB=CB+1^ GET#3,AT,BT = GOSUB380 

REM —STAMPA UN PALLINO PER OGNI BLOCCO— 

TR=ASC < AT > : SC=ASC < BT- > : PR I NT " • " ; 

IFTROOTHEN205 

REM —CONTROLLO LUNGHEZZA FILE— 

IFCB=NBTHEN325 

REM —CICLO DI ATTESA— 

IFCB=NBTHENFORI=1TO250=NEXTI=G0T085 

PRINT :PRINTM2TFIT 

REM —SE CONTEGGIO ERRATO— 

PRINT"«DEVO AZZERARE ? < «SS/SNH> “ 

GETAT:IFAT=""THEN275 

IFAT="N"THEN4O0 

IFAT-O" S" THEN275 

PRINT"«AZZERAMENTO E VALIDATE" 

PRINT#1,"S’"FITPRINT#1,"V" 

CL0SE3 : CL0SE2 ; CLOSE1 : RIJN 

REM —PASSA A PROSSIMA ENTRATA— 

FI=FI+1 : IFFI=8THENGOSUB350 : FI=0 
GOTO175 

REM —TUTTO BENE— 

F'R I NT ^ PR INTTAB< 9> " MWM30K " ■ FI =F I +1 
IFFI=8THENGOSUB350 : FI=0 
00T0255 

REM —RE LETTURA DIRECTORY— 

REM —TD=0 A FINE DIRECTORY— 

I FTD=0THENPR INTM3T : GOTO400 



355 REM — LETTUP.fi BLOCCO— 

360 fi#="":B#=""=PRINT#1,"Ul=2,0";TD;SD 
365 GET#2,fi*,B# =GOSUB380 
370 TD=fiSC C fi# = SD=fiSC < B# > = RETURN 
375 REM —SISTEMASIONE BVTE LETTI— 

3S0 IFB#=""THENB#=CHR#<0> 

385 I Ffi#=""THENfi#=CHR#<0> 

330 RETURN 

335 REM —CHIUSURA FILE— 

40© CL0SE3^ CL0SE2 > CLOSE1: STOP 


TRAC/SET e' una modifica di DISPLAY T&S e consente di 
visualizzare gruppi di settori concatenati e settori 
isolati. 


5 REM TRAC,-'SET 

IO RC#=" 3VSIDEQ tflIIIIIID M1SFSSINTER" 

15 RO#=" MSfc'IDEU ■" 

20 RE#= " WeF'RINTERH" 

25 PRINT'TMW-" 

30 PRINT" CONTENUTO BLOCCHI 

35 PRINT"-" 

40 REM COSTANTI 
45 SP#=" ":NL#=CHR*C0> 

50 HX#="0123456789fiBCDEF" 

55 FS#="" ; FORI=64 TO 35 
68 FS#=FS#+ " a" +CHR# < I > + " : NEXT I 

65 SS#=" "■FOR 1=192 TO 223 

70 SS#=SS#+"N"+CHR# <I> + "H"=NEXT I 
75 DIM fi#<15>,NB<2> 

80 0#="0" 

85 PRINTRC# 

30 GETJJ# : IF JJ#=" " THEN30 
95 IF JJ#= "V"THENPRINTRO# 

100 IF J J#="P"THENPRIMTRE#=0PEN4,4 

1 10 GOSIJB450 

115 REM CARICA BUFFER 

120 INPIJT " i»»ITRACC IA, SETTORE " ; T, S 

125 IF T=0 OR T>35 THEN355 

130 IF J..T#="V" THENGOSUB360 : GOTO 135 

131 PRINT #4 = PRINT #4,"TRACCIA"T" SETTORE"S > PRINT#4 
135 PRI NT# 15, "U1 : 2, "D#T ; S = G0SUB335 

140 PRINT# 15.. "B—P ! 2/ 0" 

145 REM LEGGE BVTE 0 

150 GET#2 .• A# < 0 > •• I FA# < 0 > = " " THENfi# < & > =NL# 

155 PR I NT# 15, "B-F' 2, 1 " 

160 IF JJ# = "V"THEN170 
165 IF JJ#="P"THEN230 
170 REM VIDEO 
175 K=1 : NB<1> =ASCCA#< 0> > 

180 FORJ=0TO63 : I FT=j i iTHENG0SUB375 ; G0T0365 
185 FOR I=K TO 3 

190 GET#2, A# • I > IF fi#C I > = " " THEN A# C I > =HL# 

195 IF K=1 AND I<2 THEN NB (. 2=ASC< A#< I > > 

20O NEXT I :K=0 
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205 fi$ = " " : B$=" = " • N=7*4 GOSUB 405 = fi$=fi$+" : » 

210 FOR 1=0 TO 3 :N=fiSC(fi$< I >> GOSUB 405 
215 C$=fi$<I>■GOSUB 425 ' B$=B$+C$ 

220 HEXT I IF 77#="V" THEN PRINTfl$B$ 

225 HEXT 7 :G0T0295 

230 REM PRINTER 

235 K= 1 : HB C 1 > =RSC C fi* C 0 > ) 

24ti PUF' 7=0 TU 1.5 
245 POR I =K Tu 1.5 

250 GET#2,A$ <I> =IF fi#<I> = "" THEN fi* CI=HL$ 

255 IF K=1 RND I<2 THEN NB<2 > =RSC t R$ < I j 
260 HEXT I^ K=0 

265 fì$=" " •• B$=" ^ " : H=7*16 = GOSUB 405 = fl$=fl$+" : " 

270 FOR 1=0 TO 15 = N=flSC<fl$< I >> GOSUB 405 
275 C$=fi$CO = GOSUB 425 = B$=B$+C$ 

280 HEXT I 

285 IF 77$= "P" THEN PRINT#4,fi$B$ 

230 HEXT 7 :GOT0295 

£35 REM SI ITCFSSTVO BLOCCO 

300 PRIHT"TRRCCIfì/SETT.SEGUENTE"NB<1>NB<2> "M" 

305 PRIHT"DESIDERI PROSEGUIRE S/H 

310 GET Z$ ■IF 2$="" THEH310 
315 IF Z$0"S" THEH325 

320 T=HB<1>=S=NB<2 >■G0SUB445 : GOSUB450 = GOTO125 
325 IF Z$="H“ THEH G0SUB445 ; GOSUB450■GOTO120 
338 GOTO 31© 

335 REM ROUTINE ERRORE 

340 IHPUT#15.. EH .• EM$ , ET, ES ■ IF EN=0 THEN RETURN 
345 PR I NT " SERRORE DI SCO*" EH, EM$.. ET , ES 
350 END 

355 PRIHT #15.' " I"D$ = G0SUB445 = C LOS E 4 < PRIHT "END" = END 
360 PRIHT"XMfTRfiCCIR"T" SETTORE"S"M" RETURN 
365 IF Z$="N"THEN 7=80 : GOTO 225 
370 GOTO185 

375 REM MESS. CONTINUAZIONE 
3S0 PRI HT " SUMMCONTINUO<S/N > " 

385 GETZ$=IF Z$=" " THEN 385 
330 IF Z$="N" THEN RETURN 
395 IF Z$O n S" THEH 385 

400 PRIHT"STRACCIfi" T " SETTORE"S : RETURN 
405 REM COHV.HEX 

41Q fil = INT<N/16> : fl$=fi$+MIO$CHX$.. fil + 1, 1 ;■ 

415 02= I HT C N-16*fi 1 > < fl$=R$+M 10$ < HX$, R2+ LI) 

420 fi$=fl$+SF'$ •' RETURN 
425 REMCOHV.ASCII 

430 IF fiSC<C$><32 THEH C$=" " : RETURN 

435 IF fiSC<C$><128 OR RSCCC$>>159 THEH RETURN 

440 C$=MID$<SS$,3*<fiSC<C$>-127) .• 3> = RETURN 

445 CL0SE2=CL0SE15=RETURN 

450 OPEN 15,8, 15.. " I " +0$ = G0SUB335 

455 OF'EH'2,8,2, " # " = G0SUB335 ■ RETURN 


SIST/DISCO controlla il dischetto per trovare se ci 
sono settori rovinati; esso e' una modifica di CHECK 
DISK, ma risulta molto piu’ veloce, infatti abbiamo 
ottimizzato l'allocazione dei blocchi. Alla fine il 
dischetto risulta con allocati nella BAM i settori 
rovinati, ma non nella directory, quindi può' essere 
usato, ma non puoi eseguire i comandi VALIDATE o 
COLLECT . 
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5 REM SIST/OISCQ 

10 REM TABELLA TRACCE E SETTORI GUASTI 
15 DIMT < 100 ODI MS < 100 ') 

20 DIMOI <21 :>, G2< 19) , 03< 18>,G4<l?) 

25 DATA0, 10,20,8.. 18,6, 16,4, 14,2, 12,9, 19 
30 DATA?,17,5,15,3,13,1,11 

35 DATA©,11,1,12,2,13,3,14,4,15,5,16,6,17 
40 DATA?,18,8,9,10 

45 DATA0,10,1,11,2,12,3,13,4,14,5,15 

50 DATA6,16,7,17,8,9 

55 DATA©,10,1,11,2,12,3,13,4,14,5 

60 DATA15,6,16,7,8,9 

65 FORT=1T021 :READG1<J>‘NEXTJ 

70 FOR J= 1TO19 ^ READG2 < J > NEXT J 

75 FOR J= 1TO18 : READG3< J > ■■ NEXTJ 

80 FORJ=1TO17 = READG4<J > =NEXTJ 

85 RC*=“ BLOCCHI GUASTI SONO STATI ALLOCATI" 
90 RD#="WWBLOCCHI GUASTI"=RE*="TRACCIA" 

95 RF*="SETTORE" 

100 PRINT'TJMMM-" 

105 PRINT" SIST/DISCO 

110 PRINT"--*-" 

115 OPEN15,8,15 
120 PRINT#15,"VO" 

125 N’;=RND<T 0*255 

130 A*="" F0RI=1T0255 

135 A*=A*+CHR*<255AND<I+NX>> =NEXT 

140 0PEN2,8,2,"#" : G0SUB325 

145 PRINT=PRINT#2,A*; 

150 J=1 

155 FORT= 1T017 : FORL.= 1T021 

160 S=G1<L > :GOSUB200 = NEXTL:NEXTT 

165 FORT=18T024:F0RL=1TO19 

170 S=G2<L >=GOSUB200 > NEXTL = NEXTT 

175 FORT=25TO30=FORL=1TO18 

180 S=G3<L >:GOSUB200:NEXTL<NEXTT 

185 FORT=31T035 = F0RL=1T017 

190 S=G4<L>^ GOSUB200 = NEXTL:NEXTT 

195 GOTO260 

200 PRINT#15,"B-A: 0"T;S 
205 INPUT#15,EN,EMÌ,ET, ES 
210 IFEN=0THEN225 
215 IFEN=65THENRETURN 
220 STOP 

225 PRINT#15,"U2 : 2,@“T;S 
230 NB=NB+1 

235 INPUT#15,EN,EMT,ES,ET 

240 IF EN=0THENRETURN 

245 T <T)=T S < T> =S•J=J+1 

250 PRINT "MALOCCHI GUASTO T; S 

255 RETURN 

260 PRINT#15,"V0" 

265 G0SUB325 
270 CL0SE2 
275 IFJ=1THEN350 
280 0PEN2,8,2,"#“ 

285 PR I NTP.D4 , RE*, RF* 

295 FORO ITO J-l 

300 PR I NT# 15, " B-A O " T < I> ; S < I )' 

305 PRINT,,T<I>,S<I> 

310 NEXT 

315 PRINT"W";J-1 ;RC* 

320 CL0SE2> CLOSE15 : END 
325 INPUT#15,EN,EM*,ET,ES 
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330 IF EM=0 THEN RETURN 

335 PRI NT " KDffiERRORE# " EN, EM$ET J ES"3" 

340 FRI NT# 15.. " 10" 

345 RETURN 

350 PR I NT " MMNMMTUTTO BENE! " : CL0SE15 : END 


NUMBUFFER serve per trovare quanti buffer dell'unita' 
15^1 possono essere aperti contemporaneamente in modo 
diretto e quali sono i loro numeri. 


5 REM NUMBUFFER 
10 OPEN15.8.15."I" 

15 INPUT"QUANTI BUFFER";N 
£0 A*= " " : B*= " " : C#= " " ; D:$=" " ; E#= " " 

25 ONNOOTO50,45,40,35,30 

30 0PEN2,8.2."#"=GOSUB115 :GET#2.E* : GOSUB115 
35 0PEN3,8. 3, "#" : GOSUB115 = GET#3. D$ : GOSIJB115 
40 0PEH4,8.4 .• = GOSUB1 15 : GET#4, Ct ■ GOSUB1 15 

45 0PEN5,8,5,"#": GOSUB 115: GET#5, Bt ■■ GOSUB 115 
50 0PEN6,8,6,"#":GOSUB115 : GET#6,A# = GOSUB115 
55 ONNGOTO100,90,80,70,60 
60 IFE$=""THENE*=CHR*<0> 

65 PRINTASC < E* >:CL0SE2 
70 IFD$=" "THEND$=CHR*<0> 

75 PRINTASC < D* >:CL0SE3 
80 IFC*=""THENC$=CHR$<0> 

85 PRINTASCCCT>:CL0SE4 
90 IFB$=""THENB$=CHR*< 0 > 

95 PRINTASC<B$>=CL0SE5 
100 IFA$=""THEHA*=CHR$< 0 > 

105 PRINTASC< A4>■CL0SE6 

110 CL0SE15 : STOP 

115 INPUT#15,EN,EMf,ET,ES 

120 printen;em*;et;es 

125 RETURN 


INDBUFFER consente di vedere quali indirizzi vengono 
assegnati ad ogni buffer nella RAM dell'unita' 1541. 


5 REM INDBUFFER 

IO DIMR* <8,7 >:FORK=1 T08 :FORI = 1 T07 

15 Rt <K, I> = "":NE NTI :NEXTK 

16 M14="IHD. IH MEMORIA DEL BUFFER: 







20 0PEN7,4 :PRINT#7,"RISULTATI INDBUFFER" 

25 OPEN15,8,15,"I" 

38 INPUT"QURHTI BUFFER",H : PRINT#7 
35 PRINT#7,Ni" BUFFER" : PRINT#7 
40 At="":B*="" : Ct="" : Dt=""■Et="" 

45 OHNGOTO70,65,60, 55,58 

50 0PEN2,8,2,"#":GO3UB270:GET#2,Et = GOSUB270 
55 0PEN3,8, 3, " # " = GOSUB270 ■■ GET#3,0* • GOSUB270 
60 0PEN4,8,4,»#":GOSUB270 GET#4,Ct=GOSUB270 
65 0PEN5,8,5," # "••GOSUB270:GET#5,Et:GOSUB270 
70 0PEN6,8,6,"#":G0SUB27©=GETfté,A*=GOSUB270 
75 PRINT#7,"NUMERI DEI BUFFER ", 

80 ONNGOTO165,145,125,105,85 
85 IFEt=" " THENEt=CHRt < 0 > 

90 PR I NT#7, RSC C Et > 

95 PRINT#15,"B-P:"2;1 
100 PR I NT#2, " 22222 " : : GOSUB270 
105 IFDt=" " THENDt=CHRt < 8 
118 PRINT#7,ASC t Dt >; 

115 PRINT#15,"B-P="3;1 

128 PR I NT#3, '• 33333"; G0SUB278 

125 IFCt=""THENCt=CHRt<0 > 

138 PRINT#7,ASC <Ct>; 

135 PRINT415, "B-P ■ "4;1 

140 PRINT#4,"44444";=GOSUB270 

145 IFBt=""THENBt=CHRt<0> 

158 PRINT#7,ASC<Bt >; 

155 PRINT415,"B-P:"5.1 
160 PRINT45,"55555"; •GOSUB270 
165 IFAt=“"THENAt=CHRt<0> 

170 PRINT47,ASC<At>; 

175 PRINT415,"B-P : "6,1 

180 PRIHT46,"66666", =GOSUB270 

185 PRINT47 

198 FORK=1T08 :M=K—1 

195 FQRI=1T07 : L=I~1 

200 PRINT#15,"M-R"CHRt< L)CHRt<M> 

205 GET#15, Rt<K,I> 

210 NEXTI 
215 NEXTK 

220 FORK=1T08‘ FORI = 1T07 

225 IFRt<K, I> = ""THENRt < K,I>«CHRt<0 > 

230 NEXTI=NEXTK 
235 F0RK=1T08 

240 PRINT#7,MIt;STRt<<K-1>*256> 

245 PRINT47,"PRIMI 8 BYTE DEL BUFFER "; 

250 FORI=1T07 

255 PRINT#7,Rt CK,I>, :NEXTI :PRINT#7 
260 NEXTK 

265 FORK=1T07:CLOSEK = NEXTK=CLOSE15 = STOP 
270 INPIJT# 15, EN, EMt, ET, ES 
275 PRINTEN; EMt.: ET; ES 
280 RETURN 


CONTRINDI1 consente di vedere come il sistema 
gli indirizzi di traccia e settore al file 
ziale INDIl, usato come indice degli archivi 
nei precedenti paragrafi. 


assegna 
sequen- 
tratta ti 


1 55 





10 REM CONTRINOI 1 
20 OPEN15,8,15,"I" 

30 0PEN2,8,2,"INDI1,S,R" 

35 0PEN4,4 : PRINT#4,"CONTROLLO INDII":RRiNT#4 
40 K=0: I=0 

45 INPUT#2,R-f,T,8 TS=ST:K=K+1 

50 print#4,k;t;8; " 

60 1 = 1 + 1 : IFI=5THENPRINT#4 1=0 

70 IFTS=64THENPRINT#4=CL0SE2 CL0SE4:CL0SE15=STOP 
80 G0T045 


ALLOCA mostra come devono essere correttamente allo 
cati i blocchi in modo diretto senza invadere la trac 
eia 18, che viene usata per la directory. 


1000 REM ALLOCA 

1005 REM TRACCIA TX, SETTORE SX 

1010 REM SI SUPPONE RPERTO UN CANALE DATI 

1015 REM SI SUPPONE APERTO IL CANALE 15 

1020 REM SI SUPPONE CHE SX SIA COMPATIBILE CON TX 

1025 REM SCARTA LA TRACCIA 18 

1030 PRINT#15,"B-R:0"JTS;SX 

1035 INPUT#15,EN,EM$,ET,ES 

1040 IFEN=0THEN RETURN 

1045 IFENOS5THEN STOP 

1050 I FET= 18THENTX= 1 3 ■■ SX=0 : GOTO 1030 

1055 TX=ET:SX=ES: GOTO1030 



CAPITOLO 4 


ARCHITETTURA DEL SISTEMA 


H.1 INTRODUZIONE 

In questo capitolo affrontiamo un argomento avanzato; 
vogliamo descrivere il funzionamento del calcolatore 
nelle sue singole parti, cercando di renderlo compren¬ 
sibile anche a chi non ha mai applicato CIRCUITI 
INTEGRATI, e non ha conoscenze di ELETTRONICA 
DIGITALE. Finora abbiamo visto il calcolatore come un 
apparecchio che, quasi per magia, comprende un 
linguaggio che assomiglia un po' alla lingua inglese, 
il BASIC. Qui trattiamo gli argomenti che occorre 
conoscere per essere in grado di adoperare il LINGUAG¬ 
GIO MACCHINA, la cui conoscenza e' istruttiva ed 
assieme utile per risolvere problemi di velocita' e di 
gestione diretta delle periferiche. 

Il tuo COMMODORE 16 possiede al suo interno diversi 
circuiti integrati; dei piu' importanti cercheremo di 
dare una descrizione soddisfacente, ma consape¬ 
volmente non completa per non disperdere in dettagli 
1'argomento. 

Il COMMODORE 16 , come tutti i calcolatori, e' costi¬ 
tuito da circuiti integrati, collegati tra loro 
mediante connessioni elettriche. Ogni circuito inte¬ 
grato e' costruito in modo da svolgere determinate 
funzioni; il costruttore generalmente fornisce, a 
richiesta, la documentazione necessaria per appli¬ 
carlo. Nel COMMODORE 16 alcuni integrati sono stati 
costruiti apposta dalla COMMODORE, e questa soluzione 
ha permesso di ridurre notevolmente il numero di 
componenti necessari per il funzionamento del calco¬ 
latore. Le principali componenti di un calcolatore so¬ 
no tre; 

1) . UNITA' CENTRALE DI ELABORAZIONE (CPU, Che in 
inglese significa CENTRAL PROCESSING UNIT) 

2) . MEMORIA 



3). DISPOSITIVI DI INGRESSO/USCITA (I/O, cioè’ 
INPUT/OUTPUT ) 

La potenza di un calcolatore dipende dalla potenza di 
queste tre parti. 


4.2 LA MEMORIA 

LA MEMORIA e' concettualmente la piu' semplice delle 
tre parti. Esistono nel COMMODORE 16 due tipi di memo¬ 
ria: a sola lettura (ROM, Read Only Memory) e a let¬ 
tura e scrittura (RAM). Come dice il nome stesso, la 
MEMORIA e' un dispositivo che ha la caratteristica di 
ricordare, e difatti ricorda i bit, che sono l'unita' 
di informazione. Come abbiamo visto nell'appendice B 
del libro "COMMODORE 16 per te", un BYTE di memoria e' 
l'insieme di 8 bit. La memoria e' organizzata in cel¬ 
le (byte): nel COMMODORE 16 ci sono 32768 celle di 
memoria ROM e 16384 celle di memoria RAM. 

La memoria ROM e' stata costruita con i bit a un valo¬ 
re prefissato, in modo tale da non essere alterabile 
nel tempo. La ROM contiene tutto il SISTEMA OPERATIVO, 
cioè' l'insieme delle routine in linguaggio macchina 
che occorrono per comunicare con le periferiche 
(tastiera, video, floppy disk, registratore, stampan¬ 
te, ecc), e l'interprete BASIC, cioè' quel programma, 
scritto in linguaggio macchina, che, appoggiandosi al¬ 
le routine del SISTEMA OPERATIVO, interpreta i coman¬ 
di impartiti da tastiera, pone in memoria le linee 
introdotte, ed esegue le istruzioni memorizzate. 

La memoria RAM ha la caratteristica di essere altera- 



Figura 4.1 Collegamento tra CPU e memoria 






bile: ogni byte di memoria RAM può' cioè' essere 
scritto o letto, a seconda di un segnale, controllato 
dalla CPU (il segnale R/W, Read/Write). Quando questo 
segnale e' basso, l'accesso alla memoria viene effet¬ 
tuato in scrittura, altrimenti in lettura. La RAM e' 
usata per memorizzare i programmi dell'utente, le 
variabili, le informazioni da visualizzare sullo 
schermo ecc. 

Nella Figura 4.1 e’ illustrato il collegamento tra CPU 
e memoria. Per leggere un byte di memoria (vedi Figu¬ 
ra H.2) la CPU presenta sui 16 bit di indirizzo 
l'indirizzo del byte che vuole leggere, pone a 1 il 
segnale R/W, attende una transizione del segnale di 
temporizzazione (CLOCK) e legge il dato dagli 8 bit 
dedicati ai dati. 
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Figura 4.2 Ciclo di lettura da memoria 


Per scrivere in memoria (vedi Figura 4.3) la CPU 
presenta sul DATA BUS (8 linee dedicate ai dati) il 
dato da scrivere, sul BUS INDIRIZZI (16 linee dedi¬ 
cate agli indirizzi) l'indirizzo del byte in cui 
memorizzare il dato e pone basso il segnale R/W. Dopo 
una transizione del segnale di CLOCK la CPU considera 
compiuta la scrittura. 
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Figura 4.3 Ciclo di scrittura in memoria 


4.3 li ' UH IT A ' CENTRALE DI ELABORAZIONE (CPU) 

La CPU e* considerata il CUORE del calcolatore, per¬ 
che' esegue il programma, controlla i dispositivi di 
I/O e di fatto produce l'elaborazione dei dati secon¬ 
do le istruzioni del programma. Nel COMMODORE 16 la 
CPU e' un circuito integrato con 40 piedini, cioè' 40 
punti di collegamento con l'esterno. Questo integrato 
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Figura il.4 Zoccolatura della CPU 7501 




porta la sigla 7501, ed e' stato progettato apposta 
per i calcolatori COMMODORE 16 e PLUS 4. In realtà* 
deriva da un'altra CPU, la famosa 6502, da cui la 7501 
differisce per alcuni dettagli, ma della quale conser¬ 
va la stessa architettura e lo stesso set di istru¬ 
zioni . 

Prima di vedere l'architettura di questa CPU deaeri-: 
viaoo brevemente i 40 segnali che vi fanno capo. 

Nella Figura 4.4 e' riportata la ZOCCOLATURA della CPU 
7501 . 

. 1- *0 in. Ingresso. Da questo piedino la CPU rice¬ 
ve la temporizzazione (CLOCK) necessaria per il 
funzionamento. E' un' ONDA QUADRA della frequenza 
selezionabile di 890000 o 1780000 hertz. Tutte le 
operazioni della CPU sono legate al CLOCK: quando il 
CLOCK e' alto, la CPU accede a memoria, quando e’ bas¬ 
so la CPU "pensa", cioè' esegue le commutazioni neces" 
sarie per eseguire l'istruzione, esegue calcoli, e non 
usa la memoria (vedi Figura 4.5). 


5 V 


ELABORAZIONE 
SENZA UTILIZZO 
DELLA MEMORIA 

Figura 4.5 Segnale $0, il clock del sistema 

.2- RDY. READY. Ingresso. Quando questo ingresso e’ 
basso la CPU si arresta, e riparte quando RDY ritorna 
alto. 

.3“ IRQ. Interrupt ReQuest, ingresso. Quando si veri-» 
fica una transizione da alto a basso di questo segna-» 
le la CPU "sente" una richiesta di interruzione, e va 
ad eseguire una speciale routine di servizio dell'in- 
terrupt (operazione simile alla chiamata e all'ese-» 
cuzione di un sottoprogramma da programma, solo che 
qui la chiamata avviene per effetto di questo segna¬ 
le), alla fine della quale il programma riprende. 

.4- AEC. Address Enable Control, ingresso. Quando 

questo segnale viene posto basso la CPU non presenta 
gli indirizzi sul BUS INDIRIZZI. Ciò' permette ad 
altri dispositivi di accedere alla memoria escludendo 
la CPU. 
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.5- VCC. Ingresso. Da questo piedino il circuito 
riceve l'alimentazione necessaria per funzionare. La 
tensione di alimentazione e' 5 volt in corrente conti' 
nua, e la CPU assorbe circa 125 milllampere. 

.6-19 e 21-22. ADDRESS BUS, uscite. Questi 16 pie¬ 
dini formano il BUS INDIRIZZI, cioè' la combinazione 
dei livelli logici di questi 16 bit individua uno tra 
i 2~16 (65536) possibili byte di memoria indiriz- 
zabili . 

.20- GND, ingresso. E' il piedino di MASSA, da dove 
la CPU riceve il negativo di alimentazione, e rispet¬ 
to al quale vanno misurati i livelli di tutti i segna¬ 
li. 

.23- GATE IN, ingresso. 

.24-30. P0-P7, ingressi o uscite, programmabili. Que¬ 
sti 7 piedini fungono da I/O, e sono usati per colle¬ 
gare il calcolatore con il REGISTRATORE A CASSETTE, il 
FLOPPY DISK e la STAMPANTE. 

.31*38 DATA BUS, ingressi e uscite. Su questi 8 BIT 
vengono scambiate le informazioni tra CPU e MEMORIA. 
Durante un ciclo di scrittura, sono uscite per la CPU, 
e ingressi per le memorie, mentre in un ciclo di let¬ 
tura dalla memoria queste linee diventano uscite per 
la memoria e ingresso per la CPU. 

.39- R/W, Read/Write, uscita. Questo segnale indica 
se il ciclo corrente di accesso alla memoria deve 
essere effettuato in lettura (livello ALTO) o in 
scrittura (livello BASSO). 

.40 RES, ingresso, RESet. Questa linea e' sempre 
alta, durante il funzionamento del calcolatore. Quan¬ 
do viene posta bassa, la CPU arresta il programma in 
corso, e va ad eseguire la routine di inizializ- 
zazione. Il pulsante grigio sul fianco del COMMODORE 
16 e' collegato alla linea di RESET. La linea di RESET 
viene posta bassa automaticamente all'accensione del 
calcolatore per circa un secondo. 


4.4 I DISPOSITIVI DI INGRESSO/USCITA (I/O) 

I dispositivi di INGRESSO/USCITA sono tutti quei 
dispositivi che collegano la CPU con l'esterno. La CPU 
piu' veloce del mondo, dotata della memoria piu’ capa¬ 
ce del mondo, sarebbe del tutto inutilizzabile se non 
fosse collegata ad almeno un dispositivo di ingresso e 
a un dispositivo di uscita. Immagina il tuo COMMODORE 
16 privo di tastiera, video, suono, registratore a 
cassetta, stampante, floppy disk e di tutti gli altri 



dispositivi di I/O: non servirebbe a niente. Nei para¬ 
grafi che seguono non parliamo dei dispositivi fisici 
che sono o possono essere attaccati al calcolatore, ma 
vediamo come funziona il collegamento tra CPU e dispo¬ 
sitivi. Premettiamo che la CPU 7501 non prevede un 
collegamento particolare con i dispositivi di I/O; per 
questo tali dispositivi vengono collegati in modo da 
apparire come celle di memoria. Una porta di I/O e* 
come una cella di memoria "aperta" (con i bit colle¬ 
gati a piedini), che può* essere usata in ingresso o 
in uscita, il cui stato può' essere letto (in ingres¬ 
so) come un normale byte di memoria, o può' apparire 
(in uscita) ad altre parti del calcolatore. General¬ 
mente una porta di I/O ha 8 bit, cosi’ come sono 8 i 
bit di un byte di memoria. 

4.5 LA TASTIERA 

Nella tastiera del COMMODORE 16 vi sono 66 tasti, ma 
poiché' i due tasti SHIFT e SHIFT LOCK sono collegati 
in parallelo, vi sono 64 tasti indipendenti. Si 
potrebbe pensare che vi siano 8 porte di I/O da 8 bit, 
cioè' che ognuno dei 64 tasti sia collegato a 1 bit di 
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Figura 4.6 Organizzazione della tastiera 







ingresso. Questa soluzione non sarebbe stata la piu* 
economica, e perciò' la tastiera e' stata organizzata 
in una matrice di 8 righe e 8 colonne, in cui i tasti 
collegano i fili orizzontali con quelli verticali (ve¬ 
di Figura 4.6); una porta di uscita e' collegata alle 
righe, una porta di ingresso alle colonne. 

Per vedere se un tasto di una riga e’ premuto, il 

SISTEMA OPERATIVO pone a 0 il bit della riga a cui 

quel tasto appartiene, a 1 i bit di tutte le altre 

righe, e legge dalla porta di ingresso lo stato delle 
colonne. Se qualcuno dei bit letti si trova a 0 allo¬ 
ra vuol dire che il tasto corrispondente e' stato 
premuto, mentre gli ingressi delle colonne dove non 
sono premuti tasti vengono trovati nello stato logico 
1. Il programma che segue, TASTMAT, si appoggia al 

SISTEMA OPERATIVO e mostra come la tastiera sia 
organizzata a matrice: la matrice disegnata ha 8 righe 
e 8 colonne: gli elementi della matrice sono quindi 
64, e rappresentano ciascuno un tasto. Tenendone pre¬ 
muto uno vedi che un elemento della matrice cambia, e 
appare uno 0 al posto di un 1: nel programma infatti 
abbiamo rappresentato con 0 i tasti premuti e con 1 i 
tasti non premuti. 

0 REM TRSTMRT 

10 SCNCLR : PRINT" 01234567“:PRINT 
20 01MD<7> ^ FQRI=0TO7 = D<I>=2tl:NEXT 
30 DO : FQRI=0T07 

40 POKE2034,255—D<I>‘SVS56176 = R=PEEK<2034 > 

50 PRINTI; FORJ=0TO7 

60 IFRRNDDCJ > THENPRINT"1"; :ELSEPRINT"0"; 

70 NEXT:PRINT;NEXT 

80 GETR$:R$=R$+" ":CHRR,16,5,R* 

90 PRINTCHRtCISO :PRINT 
100 LOOP 

COMMENTO A TASTMAT. 

.10: Cancella lo schermo e stampa una riga 
.20: Crea il vettore D e lo riempie con le potenze 
del due, da 2*0 a 2*7. E' un "trucco" per velocizzare 

11 programma, poiché' il calcolatore e' molto piu' 
rapido nell'accedere ad un elemento di un vettore che 
non nel calcolare un'elevamento a potenza. 

.30: Inizializza un ciclo DO e un ciclo FOR. Il ciclo 
DO ... LOOP e' eseguito all'infinito, e FOR ... NEXT 
e' ripetuto 8 volte, e ogni volta analizza lo stato di 
ciascuna delle 8 righe di cui e' composta la tastie¬ 
ra. 

.40: Usa la routine del SISTEMA OPERATIVO che pone un 
byte nel registro di uscita, quello collegato alle 8 
righe, e che ritorna lo stato del registro di ingres- 
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so, quello cioè' collegato alle 8 colonne. Il conte¬ 
nuto del byte 2034 viene caricato nell'accumulatore 
della CPU al momento dell’istruzione SIS, e alla fine 
della routine il contenuto dell'accumulatore viene 
posto nel byte 2034. La routine del SISTEMA OPERATIVO, 
che inizia all'indirizzo 56176, pone nel registro di 
uscita (righe) il contenuto dell'accumulatore (il 
valore posto nel byte 2034 prima di eseguire la SYS, e 
che contiene tutti i bit a 1 , tranne il bit di posi¬ 
zione I), e torna con l'accumulatore che contiene il 
valore del registro di ingresso (colonne). Pone inol¬ 
tre questo valore, che si trova ancora nel byte 2034, 
nella variabile A. 

.50: Si prepara a stampare nella riga che sta analiz¬ 
zando, e inizializza un ciclo da 0 a 7 che usa per 
controllare lo stato degli 8 bit del registro di 
ingresso. 

.60: Se il bit che analizza e' a 1, stampa 1, altri¬ 
menti stampa 0, una volta per ciascun bit di ciascuna 
riga. 

.70: Chiude i due cicli F0R, e stampa un RETURN alla 
fine del primo ciclo. 

.80: Stampa il carattere premuto, nella posizione 
16,5. Vengono stampati correttamente solo i tasti che 
rappresentano un carattere alfanumerico, e non quelli 
di controllo o di funzione. 

.90: Posiziona il cursore all'inizio della seconda 
riga: CHR^(19) infatti e' il carattere HOME. 

.100: Chiude incondizionatamente il ciclo DO ... LO¬ 
OP che parte dalla linea 30. Avremmo potuto usare GOTO 
30, ma DO ... LOOP e' un'istruzione piu' elegante e 
piu' rapida da eseguire. 

La scansione della tastiera viene effettuata automati¬ 
camente dal SISTEMA OPERATIVO ogni cinquantesimo di 
secondo, ed e' per questo che abbiamo fatto uso della 
routine in linguaggio macchina, anziché' effettuare da 
BASIC la scrittura nel registro di riga e la lettura 
dal registro di colonna: tra l'istruzione di scrit¬ 
tura e quella di lettura il SISTEMA OPERATIVO avrebbe 
effettuato probabilmente qualche scansione della 
tastiera, cambiando il contenuto del registro di riga. 
Terminiamo l'argomento indicando che il registro di 
uscita (quello che si usa per selezionare una riga) 
risponde all'indirizzo 64816 (FD30H), e quello di 
ingresso, che si usa per vedere a quale colonna appar¬ 
tiene l'eventuale tasto premuto, risponde all'in¬ 
dirizzo 65288 (FF08H). La modalità' di funzionamento 



di questo registro e' un po' particolare: 

.occorre effettuare un'operazione di scrittura affin¬ 
ché' venga memorizzato lo stato delle linee esterne, 
.effettuando dopo un ciclo di lettura e' possibile 
leggere lo stato delle linee esterne cosi' come era 
quando e' stato effettuato il ciclo di scrittura. 
Questa complicazione e' stata necessaria per effet¬ 
tuare il collegamento con i Joystick. Puoi verificare 
questa particolarita' , se conosci già' l'ASSEMBLER 
6502, disassemblando la routine del SISTEMA OPERATIVO 
che noi richiamiamo nella linea HO del programma 
TASTMAT, che parte dall’indirizzo 561 76 (DB70H ). Se 

non conosci ancora l'ASSEMBLER, puoi effettuare que¬ 
sta prova dopo aver letto il Capitolo 5. 

4.6 I JOYSTICK 

Al COMMODORE 16 si possono attaccare due Joystick. 
Ogni Joystick possiede 5 interruttori, 4 per le 
direzioni, alto, basso, sinistra, destra, e uno per il 
fuoco. 



REGISTRO FF08 


Figura 4.7a Collegamento con i Joystick 





Nella Figura 4.7a e' riportato lo schema del colle-' 
gamento con i Joystick. Il piedino 8 dello spinotto 
del joystick 1 e' collegato al bit 2 del BUS DATI 
attraverso un BUFFER che serve solo per potenziare il 
segnale, prima di inviarlo all'esterno. Per leggere lo 
stato degli interruttori del Joystick 1 e' suffi¬ 
ciente un ciclo di scrittura nel registro 65288 
(FF08H) , tale che il bit 2 del dato scritto sia a 0, e 
il bit 1 sia a 1. In questo modo se uno dei tasti del 
joystick 1 e' premuto, la linea collegata al piedino 
corrispondente a quel tasto risulta collegata al bit 2 
del BUS DATI. Se si preme il bottone del fuoco il pie-' 
dino 6 risulta collegato al bit 2. Poiché 1 siamo in un 
ciclo di scrittura, il bus dati contiene il valore del 
dato da scrivere, e in particolare il bit 2 contiene 
0, come noi avevamo programmato. A questo punto il 
valore del registro di ingresso 65288 (FF08H) viene 
aggiornato in funzione dei suoi ingressi, e il bit 6 
viene a trovarsi a 0, cosi' come e' a 0 il bit 2 del 
BUS DATI. 



Figura 4.7b Schema elettrico dei Joystick 


Nella Figura 4.7b e' riportato lo schema elettrico dei 
joystick. Le posizioni diagonali risultano dalla pres-> 
sione contemporanea di due tasti, ad esempio "alto" 
piu' "sinistra" indicano che la leva del joystick e' 
posizionata in alto a sinistra. Nel Paragrafo 5.6 
riportiamo una routine in linguaggio macchina che 
permette di leggere lo stato dei joystick. 


4.7 IL REGISTRATORE A CASSETTE 

Il registratore a cassette DATASSETTE 1531 ai collega 
al COMMODORE 16 attraverso uno spinotto a 7 connes- 




aloni. Ecco il significato di questi 7 punti di 
connessione : 

.1: MASSA. La massa del calcolatore va collegata con 
quella del registratore attraverso questa connes¬ 
sione . 

.2: + 5V. Il registratore ha bisogno di un'alimen¬ 
tazione a 5 volt per i circuiti elettronici di 
pilotaggio della testina, che riceve da questo punto. 

.3: MOTORE. Da questo punto il motore del registra¬ 
tore riceve la corrente necessaria per il suo funzio¬ 
namento, 9 volt in corrente continua non stabiliz¬ 
zati. Questa alimentazione può' venire interrotta dal 
calcolatore, per arrestare il motore. 

.4: LETTURA CASSETTA. Su questa linea vengono 
trasmessi i dati da registratore a CPU durante la let¬ 
tura di dati dal nastro. 

.5: SCRITTURA CASSETTA. Durante la scrittura di dati 
su nastro magnetico i dati provenienti dalla CPU ven¬ 
gono trasmessi al registratore attraverso questa 
linea. 

.6: SENSORE. Questa linea e' collegata ai tasti del 
registratore, perche’ la CPU sia in grado di sapere se 
viene premuto qualche tasto. 

.7: MASSA. Anche questa linea e' collegata a massa, 
come la linea 1 . 

Ora che abbiamo visto il significato delle linee che 
effettuano fisicamente il collegamento, vediamo come 
queste linee possono essere gestite. 

Il programma TASTREO, mostra come si possa leggere lo 
stato dei tasti del registratore: il bit 2 del byte di 
indirizzo 6^784 (FD10H) non e' un bit di memoria, ma 
un bit di ingresso, il cui stato rispecchia lo stato 
dei tasti del registratore. Se tale bit e' a livello 
logico 1 nessuno dei 3 tasti PLAY, REWIND, FFWD e' 
premuto, altrimenti almeno uno di essi e' premuto. 

0 REM TRSTREG 
10 DO 

20 FRI NT "PREMI UN TRISTO SUL REGISTRATORE" 

30 DO•LOOP UHILE PEEKC64784>RND4 
40 PRINT“PREMI STOP SUL REGISTRATORE" 

5© DO : LOOP IJHTIL PEEK < 64784 >RHD4 
60 LOOP 

COMMENTO A TASTREG 

.10: Inizializza un ciclo DO ... LOOP infinito, per 
ripetere all'infinito il programma. 

.20: Stampa un messaggio sul video, ad indicare che 
ora nessun tasto e' premuto. 
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•30: Attende che venga premuto un tasto sul registra¬ 
tore . 

.40: Stampa un messaggio sul video, ad indicare che 
ora e' premuto almeno un tasto. 

50: Attende che vengano rilasciati tutti i tasti del 
registratore. 

60: Chiude il ciclo iniziato alla linea 10. 

Abbiamo visto come scoprire se un tasto del registra¬ 
tore e' premuto oppure no. Il programma che segue, 
MOTREG, mostra come si possa arrestare o far partire 
il motore. 

© REM MOTREG 

IO SCNCLR FRINT"PREMI PLAV SUL REGISTRATORE" 

20 FRINT :PRIMT"A = MOTORE ACCESO" 

30 PRINT"S = MOTORE SPENTO" 

4© PRINT"F = FINE" 

50 GOSUB120 
60 OETKEVAT¬ 
TO IFA4="A"THENGOSUB120 
80 IFA$="S"THENGOSUB150 
90 IFA$O"F"THENS0 
100 GOSUB120 
HO END 

120 POKEO,PEEKC1> ORS 
130 CHAR,0.6."MOTORE ACCESO" 

140 RETURN 

150 POKEO.PEEK <1>AND247 
160 CHAR.0.6."MOTORE SPENTO" 

170 RETURN 

COMMENTO A MOTREG 

.10/40: Stampa la videata con il menu*. 

.50: All’inizio il motore viene acceso. 

.60: Attende la pressione di un tasto sulla tastie¬ 
ra . 

.70: Se il tasto premuto e' A accende il motore. 

.80: Se il tasto premuto e' S spegne il motore. 

.90: Se il tasto premuto non e' F torna alla linea 
60. 

.100: Prima di finire, accende il motore. 

.110: Termina l'esecuzione del programma. 

.120/140: Subroutine che accende il motore ponendo a 
1 il bit 3 del byte 1 e stampa il messaggio "MOTORE 
ACCESO". Il motore e' collegato al bit 3 della porta 
di 1/0 inserita nella CPU 7501. Tale porta di 1/0 
risponde all'indirizzo 1. 

150/170: Subroutine che spegne il motore azzerando il 
bit 3 del byte 1 e stampa il messaggio "MOTORE 
SPENTO". 

Dopo l'esecuzione del programma e' meglio eseguire un 
RESET del calcolatore. 



Con questi due programmi abbiamo visto come si gesti¬ 
scono dei dettagli sul registratore, i tasti e il 
motore, e non vediamo come effettivamente sono gesti¬ 
ti i dati. Il software di gestione della linea seria¬ 
le del registratore e' troppo complesso per poter 
produrre riguardo ad esso degli esempi semplici: 
possiamo tuttavia illustrare i tipi di segnali che 
viaggiano sulle linee dati seriali da e verso il 
registratore. Le due linee LETTURA CASSETTA e SCRIT¬ 
TURA CASSETTA sono due linee digitali normali, e su di 
esse viaggiano segnali che possono assumere il valore 
0 o 1: chi e' esperto di registrazioni magnetiche for¬ 
se trova un po' strano questo fatto, dato che ci si 
sarebbe potuti aspettare un segnale sinusoidale, in 
cui una frequenza corrispondesse al livello logico 1 e 
un'altra frequenza al livello logico 0, con una 
modulazione in scrittura ed una demodulazione in 
lettura. Questo tipo di trasmissione, usato in diver¬ 
si calcolatori, non viene usato nei calcolatori 
COMMODORE. Una semplice elettronica di pilotaggio nel 
registratore invia gli stessi livelli logici che 
riceve in ingresso alla testina, polarizzando in una 
direzione il nastro quando il livello logico e' alto, 
e nella direzione opposta quando il livello e' bas¬ 
so . 

Nella Figura M.8a e' riportata una semplificazione 
dello schema elettrico di pilotaggio della testina 
all'interno del registratore, durante la fase di 
registrazione, e nella Figura it.Sb sono illustrati i 
livelli di tensione applicati alla testina e la 
magnetizzazione corrispondente del nastro. Il tipo di 


CASSETTE WRITE 



Figura it.8a Collegamento della testina all'interno del 
registratore durante la fase RECORD 
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+ 5 V 

TENSIONE B-A 0 V 
- 5 V 


FLUSSO MAGNETICO NORD 
DELL'USCITA DELLA 0 

TESTINA SUD 


Figura 4.8b Livelli di tensione e magnetizzazione 
della testina del registratore 


collegamento adottato permette di avere all’uscita 
della testina (e quindi su nastro), sempre una 
polarizzazione magnetica, verso nord o verso sud, sia 
in corrispondenza del livello 0 che in corrispondenza 
del livello 1. Se si fosse collegato il punto A o il 
punto B (vedi schema in Figura 4.8a) alla massa, in 
corrispondenza di uno dei livelli logici 0 o 1 ci 
sarebbe stata assenza di polarizzazione (anziché' 
polarizzazione in senso opposto) , con conseguente 
instabilità' in fase di lettura dati. Il livello di 
registrazione risulta perciò' essere sempre quello di 
saturazione del nastro, e per questa ragione conviene 



LETTURA CASSETTA 

Il J]>o——► 


Figura 4.9 Collegamento della testina in fase PLAY 


usare nastri ad alto livello di saturazione 
(HI ENERGY) per aumentare 1’affidabi1ita ' delle 
registrazioni. 

Nella Figura 4.9 riportiamo un'esemplificazione di co¬ 
me e' collegata la testina in fase di lettura: un 
amplificatore a guadagno elevato amplifica il segnale 
della testina e lo manda all'ingresso di un INVERTER 
che pilota la linea fino al registratore. La parte 
iniziale, l'ingresso dell'amplificatore, e' molto 
sensibile ai disturbi, per cui e' raccomandabile, 
soprattutto in fase di PLAY, tenere il registratore 
distante da fonti di disturbo, e in particolare 
distanti dallo schermo video, soprattutto se grande e 
a colori. La linea SCRITTURA CASSETTA e' collegata al 
bit 1 del byte 1 , e la linea LETTURA CASSETTA e’ 
collegata al bit 4 della porta 1. Il programma VEDEBIT 
stampa su video lo stato della linea LETTURA CASSET¬ 
TA. Quando il registratore e' fermo o sulla cassetta 
non e' inciso segnale, il numero stampato su video non 
cambia, mentre durante l'ascolto di un pezzo di nastro 
registrato, vedi che a volte viene stampato 0, a vol¬ 
te 16 (2*4), a indicare che il bit 4 e' ora nello sta¬ 
to 0, ora nello stato 1. Non e’ possibile in BASIC 
ricavare informazioni dal nastro, a causa della 
lentezza e della mancanza di temporizzazioni precise 
tipici del linguaggio. 


0 REM VEDEBIT 

10 FRINT"PREMI PLAV SUL REGISTRATORE' 
20 DO :PRINTPEEK < 1> PHD16,= LOOP 


COMMENTO A VEDI BIT 
.10: Stampa il messaggio 

.20: Stampa all'infinito il risultato della opera¬ 
zione logica AND tra 16 e il contenuto del byte 1, per 
considerarne solo il bit 4 (2*4«16). Nel Paragrafo 
5.4.1 parliamo dettagliatamente di questa e di altre 
operazioni tra bit. 


4.8 IL VIDEO 

Il video e* diventato elemento essenziale nei calco¬ 
latori, polche' da' una caratteristica di interat¬ 
tività' assai gradevole ed utile sia nello scrivere 



che nell'eseguire i programmi. Vediamo come funziona 
uno schermo video: si tratta di uno schermo ricoperto 
di elementi (FOSFORI) che quando sono colpiti da elet¬ 
troni emettono luce. Dietro questo schermo vi e' un 
"cannone" che emette un fascio di elettroni di inten¬ 
sità' regolabile verso il centro dello schermo. Poi¬ 
ché' gli elettroni sono carichi elettricamente, pos¬ 
sono essere deviati da un campo elettrico. Per devia¬ 
re gli elettroni vi sono delle placche sui 4 lati del¬ 
lo schermo: sopra, sotto, a destra e a sinistra, a 
seconda del potenziale applicato alle placche orizzon¬ 
tali si può' orientare il fascio di elettroni 
verticalmente, mentre variando il potenziale appli¬ 
cato alle placche verticali lo si può' orientare 
orizzontalmente. Per ottenere un'immagine sul video si 
e' diviso lo schermo in 312 righe orizzontali, e si fa 
passare il fascio di elettroni da sinistra verso 
destra dalla prima fino alla trecentododicesima riga 
in un cinquantesimo di secondo. Un opportuno segnale 
regola poi l'intensità' del fascio che esce dal canno¬ 
ne, e ciò' permette di avere punti diversamente lumi¬ 
nosi sopra la stessa riga. 



Figura 4.10 Segnale video per pilotare un monitor 


Nella Figura 4.10 e' illustrato il formato del segna¬ 
le video adatto a pilotare un normale monitor: la 
scansione di una riga dura 64 microsecondi. Il can¬ 
none "spara" elettroni in misura proporzionale al 
livello del segnale, istante per istante. Per dise¬ 
gnare una riga illuminata il segnale deve avere un 
livello di tensione alto per tutto il tempo in cui la 
riga deve essere illuminata, e il livello basso del 
segnale corrisponde al cannone che emette pochi 
elettroni, in modo da non far illuminare i fosfori che 
colpisce. I picchi di segnale negativi rappresentano i 
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SINCRONISMI, e informano il monitor su quando andare a 
nuova riga, e quando andare a nuovo quadro. Il sincro¬ 
nismo di riga ha la frequenza di 15625 hertz, cioè’ il 
periodo dura 64 microsecondi, e il sincronismo di qua¬ 
dro ha la frequenza di 50 hertz, cosicché' il fascio 
elettronico ritorna sullo stesso punto ogni 20 
millisecondi. 

Nel COMMODORE 16 c'e' un circuito integrato assai 
complesso che genera il segnale video. Tale integrato 
e' stato progettato appositamente dalla COMMODORE, 
porta la sigla 7360 ed e' stato battezzato TED, come 
TExt Display, perche' si occupa principalmente della 
visualizzazione del testo. Vediamo quali sono i com¬ 
piti di TED e come li esegue: sappiamo che una pagina 
video di quelle che TED deve saper visualizzare e’ 
formata da 40 X 25 caratteri. Poiché' ogni carattere 
occupa una matrice di 8 X 8 puntini (PIXEL) occorrono 
320 punti su una riga. TED ha a disposizione circa 45 
microsecondi (una parte della riga e' occupata dal 
bordo) per visualizzare una riga di testo, cioè' 140 
nanosecondi (miliardesimi di secondo) per pixel. Come 
forse hai notato TED e' estremamente rapido. Ma vedia- 1 
rao come TED viene a conoscenza dei dati che deve 
visualizzare: tutte le informazioni di cui ha bisogno 
le può' trovare nella memoria del calcolatore, la 
stessa che e' a disposizione della CPU. Per mostrare 
una riga TED ha bisogno di una quantità' rilevante di 
dati, in poco tempo: 

. Il codice (D/CODE, vedi Appendice D) del carattere 
da visualizzare, 40 volte ogni otto righe. 

. Il colore e la luminosità' del carattere, 40 volte 
ogni 8 righe. 

. L'immagine del carattere da visualizzare, 40 volte 
ogni riga. 

Deduciamo che per visualizzare la prima di otto righe 
TED deve fare accesso a memoria ben 120 volte, mentre 
per le altre 7 righe bastano 40 accessi ciascuna, che 
vengono effettuati durante la fase bassa di *0 (il 
D/CODE del carattere e gli attributi sono gli stessi 
per 8 righe). Quando accede al codice e agli attri¬ 
buti TED disabilita la CPU; ciò’ comporta un rallen¬ 
tamento nell'esecuzione di tutti i programmi. Si può' 
programmare TED in maniera che non disturbi la CPU, 
azzerando il bit 4 del registro FF06H (65286 decima- 1 
le), ma in questo caso non può' visualizzare lo scher¬ 
mo, che appare tutto del colore del bordo. Ti ricor-> 
diamo che TED accede a memoria senza disabilitare la 
CPU durante la fase bassa di *0 (vedi Figura 4.5), ed 
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utilizza questo tempo per leggere le immagini 
caratteri da visualizzare. 
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Figura 4.Ila Mappa della memoria dei caratteri 
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Figura 4.11b Mappa della memoria del colore e della 
luminosità» dei caratteri 
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Nella Figura 4.Ila sono elencate le locazioni di memo¬ 
ria che controllano la disposizione dei caratteri sul-' 

10 schermo e nella Figura 4.11b le locazioni che 
controllano gli attributi, cioè’ il colore, il livel¬ 
lo di luminosità 1 e il lampeggiamento dei caratteri. 
Sono queste, oltre all'immagine dei caratteri, resi- 
dente in ROM, le zone di memoria da cui il TED attin- 
ge le informazioni necessarie per effettuare la 
visualizzazione dello schermo nel modo testo. La memo-' 
ria degli attributi contiene i dati relativi alla 
luminosità' (i bit 6-5-4), al colore (i bit 3-2-1-0) e 
al lampeggiamento (il bit 7) di ciascun carattere. Gli 
indirizzi segnati nella figura sono quelli validi 
all'accensione del calcolatore, e vedrai nel Capitolo 
6 come si possono modificare. La programmazione del 
TED e' assai laboriosa, soprattutto a causa del gran 
numero di funzioni che può' eseguire, e per questo 
affrontiamo l'argomento in diversi punti, partico¬ 
larmente nel Capitolo 6 dedicato alla grafica. 

TED ha un numero di funzioni assai elevato all'in¬ 
terno del COMMODORE 16: genera il CLOCK per la CPU, 
genera il segnale video, genera il segnale audio, 
rinfresca le memorie dinamiche e regola le temporiz- 
zazioni necessarie per la gestione di tali memorie, 
riceve i dati che provengono dalla tastiera e quelli 
che provengono dai Joystick, genera gli INTERRUPT per 
la CPU, emette i segnali di abilitazione per le ROM, e 
infine seleziona il banco ROM o RAM negli indirizzi 
8000H-FFFFH. Come vedi e* riduttivo pensare al TED so¬ 
lo come interfaccia per il video: il TED e' un inte¬ 
grato che effettua gran parte delle funzioni di I/O e 
di interfacciamento con la memoria. 

11 segnale video esce dal calcolatore dalla presa mar¬ 
cata VIDEO, presente sul retro della tastiera. Il pie¬ 
dino 1 emette un segnale che contiene LUMINANZA e 
SINCRONISMI, ma non contiene le informazioni relative 
al colore, che escono invece dal piedino 6 
(CROMINANZA). Il piedino 4 contiene un segnale VIDEO 
COMPOSTO, che comprende LUMINANZA, CROMINANZA e 
SINCRONISMI. Al piedino 1 si può' attaccare un moni¬ 
tor monocromatico; il monitor a colori della COMMODORE 
modello 1701/1702 fa uso dei segnali separati 
LUMINANZA+SINCRONISMI e CROMINANZA, che preleva dai 
piedini 1 e 4 dello spinotto, mentre 1 monitor di 
altre marche generalmente fanno uso del segnale VIDEO 
COMPOSTO presente al piedino 4. La qualità’ del segna¬ 
le VIDEO COMPOSTO e' inferiore a quella dei segnali 
separati LUMINANZA e CROMINANZA, ed e' anche per que- 



sto che la qualità' dell'immagine su monitor COMMODORE 
1701 e' migliore di quella di quasi tutti gli altri 
monitor della stessa fascia di prezzo. Il segnale per 
il video esce anche da un altro spinotto, quello mar¬ 
cato RF, modulato con radiofrequenza. Tale segnale e' 
adatto all'uso con un normale televisore, ma la quali¬ 
tà' dell'immagine e* generalmente peggiore di quella 
del monitor. Il televisore va sintonizzato sul canale 
36, in banda IV (UHF), e talvolta può' essere neces¬ 
sario ritoccare la sintonia del TV a causa di inevi¬ 
tabili slittamenti della frequenza che dipendono dal¬ 
la variazione di temperatura dei componenti del 
modulatore. La Figura 4.12 riporta lo schema di colle¬ 
gamento dello spinotto VIDEO. 


PIEDINO 

FUNZIONE 

1 

LUMINANZA + SINCRONISMI 

2 

MASSA 

3 

USCITA AUDIO 

4 

VIDEO COMPOSTO 

5 

AUDIO IN 

6 

CROMINANZA 

7 

NON COLLEGATO 

8 

+ 5 VOLT 


Figura 4.12 Connessioni della presa AUDI0/VIDE0 


4.9 IL SUONO 

Il suono nel COMMODORE 16 viene generato da due oscil¬ 
latori che si trovano nel TED. Per ognuno di questi vi 
e' un registro a 10 bit che indica la frequenza di 




oscillazione; vi e' poi un registro comune, di quat~ 
tro bit, che Ìndica il volume del suono emesso: il 
livello 0 corrisponde a silenzio, e il livello 8 al 
massimo (i livelli da 8 a 15 sono equivalenti). Tre 
bit servono ad azionare le due voci, e uno di questi 
indica se la voce 2 emette un segnale a onda casuale 
(rumore bianco ) . 


FREQ.: 

9 8 

7654321 

0 

VOCE 1 

BIT 1 E 0 
$ FF12 

F F 0 F 


FREQ.: 

9 8 

7654321 

0 

VOCE 2 

BIT 1 E 0 
$ FF.10 

F F 0 F 



ABILITAZIONE: BIT 4 $ FF11 (0 = OFF) 
VOCE 1 


ABILITAZIONE: BIT 5 $ FF11 (0 = OFF) 
VOCE 2 


ABILITAZIONE: 

RUMORE BIANCO: BIT 6 $ FF11 (0 = OFF) 
PER VOCE 2 


DISABILITAZIONE: BIT 7 $ FF11 (1 = DISABILITATO) 
DEL SUONO 


VOLUME: BIT 03$ FF11 


Figura 4.13 Registri per la gestione del suono 



Nella Figura <4.13 sono riportati gli indirizzi e le 
posizioni di tutti i bit che riguardano il suono. Per 
generare rumore bianco e' sufficiente selezionare il 
bit del rumore bianco, e non e' necessario selezio¬ 
nare anche il bit di abilitazione della voce 2, dopo 
aver impostato la frequenza. 

Il programma SUONOCONPOKE e* un esempio di come vanno 
gestiti i registri di TED per generare suoni. 


0 REM SUONOCONPOKE 

10 T=255*256 

20 POKET+17,8+32 

30 F0RF=1T04*256—1STEP10 

40 POKET+15,FRHD255:POKET+1 6 ,F/256=NEXT 

50 POKET+15,200 ^ POKET+1S.0 

60 FORV=STOOSTEP-1=POKET+17,V+32 

70 FORR=1T0200 :NEXT =NEXT 


Il suono esce dallo spinotto marcato VIDEO presente 
sul retro della tastiera, ed e' collegato al piedino 
3. Per chi usa il televisore il segnale del suono e' 
modulato, e appare nell'altoparlante del TV come quel-* 

10 di un normale canale televisivo. Nella Figura 4.12 
e' riportato lo schema dello spinotto marcato VIDEO. 

11 piedino 5 dello spinotto, AUDIO IN, permette di 
inserire un segnale audio in ingresso: il segnale 
audio in uscita AUDIO OUT comprende il mixaggio di 
AUDIO IN e del suono generato dal TED. 


4.10 LA PORTA SERIALE 

Se per i calcolatori stai acquistando quella sorta di 
passione che ha conquistato ed anima noi che scrivia¬ 
mo, ti troverai, prima o poi, nella necessita' di 
espandere il tuo calcolatore con il DISK DRIVE e con 
.la STAMPANTE: pQtrai usare il tuo sistema calcolatore 
per gestire archivi elettronici, per scrivere lettere 
e libri (questo libro e' stato scritto su COMMODORE 
64, con il programma di elaborazione testi EASY 
SCRIPT, e stampato con una stampante a margherita: 
EASY SCRIPT sara' presto disponibile anche per 
COMMODORE 16), e per automatizzare quelle operazioni 
che riterrai possibile e utile automatizzare. Il tuo 
COMMODORE 16 potrà' ancora esserti utile, poiché' le 
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sue doti di espandibilita' e i programmi che gradual¬ 
mente vengono presentati sul mercato ti permetteranno 
di usare questo calcolatore anche per usi "profes¬ 
sionali". La porta seriale permette di collegare FLOP¬ 
PY DISK DRIVE e STAMPANTE, oltre ad eventuali altre 
apparecchiature (PLOTTER, ecc) che ora o in seguito 
potranno essere costruite. 


PIEDINO 

FUNZIONE 

1 

NC 

3 

SERIAL ATN OUT 

6 

RÉSET OUT 

2 

MASSA 


VISTA FRONTALE 
DELLA PRESA (FEMMINA) 



Figura 4.li| Schema della porta di I/O seriale 
(SERIAL BUS) 





Vediamo nella Figura 4.14 lo schema di collegamento 
della porta di I/O seriale (SERIAL BUS). I nomi dei 
segnali sono in inglese, poiché' nella terminologia 
corrente se ne fa uso in lingua inglese. 

Il collegamento tra calcolatore e periferiche su 
SERIAL BUS e' abbastanza complesso, tuttavia possiamo 
illustrare il principio logico di funzionamento, e il 
significato dei segnali che realizzano il collega¬ 
mento. Il SERIAL BUS e' stato progettato in maniera da 
permettere il collegamento con un numero e un tipo 
variabile di periferiche. Se osservi attentamente la 
Figura 4.14 ti accorgi che i fili su cui effetti¬ 
vamente viaggiano segnali utili per lo scambio delle 
informazioni sono 3, piu' la massa. Attraverso questi 
4 fili e' possibile comunicare con un numero di 
periferiche che può' arrivare anche a 7 (2 STAMPANTI, 

numero 4 e 5, un PLOTTER, numero 6, quattro DISK 
DRIVE, numeri da 8 a 11. Appare evidente come vi deb¬ 
ba essere un accorgimento per comunicare con 7 diver¬ 
se unita' attraverso 4 soli fili. Poniamo l'atten¬ 
zione sul SERIAL BUS, Cloe' su questi 4 fili a cui 
risultano collegati, per fare un esempio: CALCOLATORE, 
DISK DRIVE e STAMPANTE. 

E' necessario che i dati siano in grado di viaggiare 
nelle seguenti direzioni: 

.da calcolatore a stampante, 

.da calcolatore a drive, 

.da drive a calcolatore. 

Non e' previsto un collegamento in cui il calcolatore 
sia escluso, cioè' da drive a stampante. E' stato 
stabilito che sul SERIAL BUS possono essere collegati 
tre tipi di dispositivi: 

- CONTROLLER, cioè' il dispositivo che controlla il 
flusso dei dati; chi assume questa funzione e' sempre 
il calcolatore, 

- TALKER, cioè' il dispositivo che invia i dati, 

- LI STENER, cioè' il dispositivo che riceve i dati. 
Inoltre un dispositivo può' essere in uno stato in cui 
ignora i dati che viaggiano sul bus. 

Per effettuare la trasmissione dei dati il controller 
invia dei messaggi agli apparecchi collegati, e atten¬ 
de la loro risposta. Ogni apparecchio ha un numero che 
lo identifica: la STAMPANTE, ad esempio, normalmente 
ha il numero 4. Per comunicare con la stampante il 
calcolatore invia all'unita' 4 l'ordine di ascoltare 
(diventare LISTENER). Se l'unita' 4 risponde entro un 
ventesimo di secondo, il calcolatore invia i dati e la 
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stampante li stampa, altrimenti viene rilevato un 
errore di mancanza del dispositivo (DEVICE NOT 
PRESENT). Alla fine di ogni dato la stampante invia 
una risposta, per informare il calcolatore che il da¬ 
to e' stato accettato, per evitare che si perdano dei 
dati a causa del fatto che la stampante e' piu' lenta 
a stampare di quanto lo sia il calcolatore ad inviare 
i caratteri. Alla fine della stampa il calcolatore 
comanda alla stampante di uscire dallo stato di 
L1STENER, e di ignorare gli eventuali caratteri futu¬ 
ri (potranno anche non essere indirizzati a lei). 

Il software per il collegamento con il DRIVE e' un po' 
piu' complesso, perche' il DRIVE, a differenza della 
stampante, e' in grado sia di ricevere, sia di 
trasmettere dati: il modo di ricezione dei dati e' 
uguale a quello della stampante, mentre la trasmis¬ 
sione da DRIVE a CALCOLATORE avviene nel modo seguen¬ 
te: il calcolatore, che ha bisogno di informazioni dal 
drive, trasmette al drive i dati di cui ha bisogno (ad 
esempio, il nome del file che vuole caricare in memo¬ 
ria), dopodiché' comanda al drive di diventare TALKER 
(colui che parla). Il drive invia tutti i caratteri 
del file (il calcolatore intanto ascolta), e alla fi¬ 
ne trasmette una sequenza di FINE TRASMISSIONE. Il 
calcolatore comanda perciò' al drive di non trasmet¬ 
tere e non ascoltare piu' i dati, in modo da liberare 
la linea seriale per i collegamenti anche con le altre 
periferiche. 

Come forse hai già' notato, il calcolatore e' in gra¬ 
do di comandare alle unita' presenti su linea seriale 
di ascoltare, di parlare, di ignorare. Tutte queste 
informazioni speciali possono partire solo dal calco¬ 
latore, e sono segnali trasmessi sotto ATTENTION. Il 
SERIAL ATN OUT e' un segnale che esce dal calco¬ 
latore, e significa che i dati che viaggiano sulle 
linee CLOCK e DATA sono da interpretarsi come coman¬ 
di. In questo modo il calcolatore trasmette due byte 
da otto bit: il primo contiene il numero di perife¬ 
rica a cui e' inviato il comando (4 bit meno signifi¬ 
cativi) e il tipo di comando da eseguire (LISTEN, 
TALK, UNLISTEN, UNTALK, 4 bit piu' significativi); il 
secondo byte contiene un numero chiamato INDIRIZZO 
SECONDARIO che la periferica riceve, ed ha un signi¬ 
ficato che dipende dalla periferica a cui e' diretto. 
Quando e' attivo il segnale ATTENTION nessuna perife¬ 
rica presenta dati sulle linee SERIAL CLOCK e SERIAL 
DATA, in modo da permettere al calcolatore di esegui¬ 
re la sequenza di ATTENTION, e tutti i dispositivi 



ascoltano, pronti a eseguire 1 comandi inviati. Come 
puoi osservare nella Figura 4. 15, tutte le linee sono 
di tipo OPEN COLLECTOR, cioè' l'uscita di ogni dispo- 
sitivo collegato e’ in grado di porre la linea BASSA 
se la linea e' alta, ma nessuna uscita e' in grado di 
riportare la linea ALTA, se qualche altra unita' la 
tiene bassa. 
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LINEA 

MASSA 


Figura H.15 Schema elettrico del SERIAL BUS 


E' chiaro che la linea e* libera quando nessun dispo¬ 
sitivo la pone bassa, cioè' quando tutte le uscite so¬ 
no alte. Se non conosci il funzionamento di un transi¬ 
stor, puoi immaginare i transistor disegnati in 
corrispondenza di ciascuna uscita come degli interrut¬ 
tori: se l'interruttore e' chiuso la linea si trova 
collegata alla massa, e il livello e' BASSO; se 
l'interruttore e' aperto lo stato della linea può' 
essere basso o alto, e dipende dagli altri interrut¬ 
tori: se tutti gli interruttori sono aperti, allora la 
linea assume il livello alto, a causa del resistore 
collegato al positivo di alimentazione. 


4.11 L'ORGANIZZAZIONE DELLA MEMORIA 

Nella Figura 4.16 e' illustrata l'organizzazione del¬ 
la memoria nel COMMODORE 16. Abbiamo visto nei para¬ 
grafi precedenti che questo calcolatore e' dotato di 
16K BYTE di memoria RAM. Il calcolatore e' stato 
progettato in modo da poterne pero' gestire 64K BYTE. 



$ 0000 


$ 0100 
$ 0200 
$ 0800 
$ 0C00 

$ 1000 

$ 3FF6 
$ 4000 

$ 8000 


PAGINA 0 

A 

STACH 


LAVORO BASIC E S O. 


ATTRIBUTI VIDEO 


MAPPA VIDEO 


AREA LIBERA 

PER IL BASIC 

PROGRAMMA E VARIABILI 


ISTRUZIONI DI RESET 


SPECCHIO PRIMI 

16 K 

J 


SEMPRE RAM 


$ 8000 


$ C000 


FDOO 


SPECCHIO 

PRIMI 

16 K 


SPECCHIO 


PRIMI 


16 K 



y 


3200 

BYTE 

ROM 

CAR 


$ 8000 
BASIC 
$ DOOO 

> CARATTERI 
$ D800 
O.S. 

FDOO 


FF40 


I/O 


FFFF 


SPECCHIO 


VETTORE 


Figura 4.16 Organizzazione della memoria 

Se osservi bene la Figura 4.16 puoi notare che i pri¬ 
mi 16K di memoria RAM si ripetono 4 volte, cioè' i 
secondi, i terzi e i quarti 16K sono uguali ai primi 
16K, perche' ogni byte di memoria risponde a 4 
indirizzi. Il byte di indirizzo 3072, ad esempio, 
risponde anche agli indirizzi 3072+16384, 3072+32768, 
3072+49152. Il programma RAM & ROM, che segue, mostra 
come a 4 indirizzi diversi corrisponde lo stesso byte. 









0 REM RRM&ROM 
10 FORJ=4096 TO 4099 
20 FOR I =0 TO 3 

30 FRI NT "Lfl CELLR" I* 16384+J.: 

40 FRINT"CONTIENE";PEEK C I*16384+J> 
50 NEXT I 
60 FRINT ;HEXT J 


COMMENTO A RAM&ROM 

.10 Stampa i contenuti del byte che vanno da 4096 a 
4099, ma tutti gli altri byte di indirizzo inferiore a 
16384 possono essere analizzati con lo stesso risul¬ 
tato 

.20-50 Ripete 4 volte questo ciclo, per stampare il 
contenuto dei 4 blocchi di indirizzi a cui rispondono 
i 16K di RAM del COMMODORE 16 

.60 Stampa un RETURN per separare i risultati e chiu¬ 
de il ciclo di J. 

Considerando il fatto che la CPU dispone di soli 16 
fili per indirizzare tutte le memorie collegate (ROM, 
RAM, I/O), può’ cioè' indirizzare al massimo 64K di 
memoria RAM, e i 64K risultano occupati da 4 blocchi 
da 16K di RAM, e' lecito chiedersi dove siano 1 32K di 
ROM. e dove siano i registri di 1/0. Sempre guardando 
la Figura 4.16 puoi osservare come gli indirizzi di 
I/O siano comuni a tutte le mappe, partendo da FD00H 
fino a FF40H. La ROM può' alternarsi alla RAM negli 
indirizzi da 8000H a FFFFH (escluso l'I/0). Per abili¬ 
tare la ROM a rispondere agli indirizzi suddetti si 
deve effettuare un'operazione di scrittura nel regi¬ 
stro del TED che risponde all'indirizzo FF3EH, mentre 
per abilitare la RAM basta effettuare la scrittura nel 
registro di indirizzo FF3FH. 




CAPITOLO 5 


LA PROGRAMMAZIONE IN ASSEMBLER 
E IN LINGUAGGIO MACCHINA 


5.1 INTRODUZIONE 

Nel Capitolo H abbiamo esposto le caratteristiche 
HARDWARE del COMMODORE 16 anche per metterti in condi¬ 
zione di utilizzare i dispositivi che lo compongono 
programmando in ASSEMBLER. Uno degli ostacoli piu' 
grossi nell'apprendimento della programmazione a BAS- 
SO LIVELLO e' quello di far comunicare il calcolatore 
con l'esterno. L'ASSEMBLER e' a basso livello perche' 
vicino alla macchina, lo e' ancora di piu' il LINGUAG- 
GIO MACCHINA; alto livello e' quello dei linguaggi 
vicini all'uomo, come BASIC, PASCAL, FORTRAN, eoe. . In 
questo capitolo vediamo come e' fatta la CPU 7501, 
quali istruzioni e' in grado di eseguire, come e' fat¬ 
to e come viene eseguito il programma. 

Il programma che la CPU esegue e' contenuto in memo¬ 
ria come una sequenza di byte. La CPU preleva dalla 
memoria il byte, che rappresenta l'istruzione da 
eseguire, e gli eventuali operandi indicati nei byte 
seguenti; esegue l'istruzione e passa a prelevare 
l'istruzione successiva. Ogni istruzione e' quindi 
letta dalla memoria come un normale byte. Programmare 
in linguaggio macchina vuol dire porre nei byte di 
memoria i codici delle istruzioni che si vogliono 
eseguire, e gli operandi. Come puoi immaginare, e' 
assai laborioso scrivere un programma sotto forma di 
numeri (in binario), e per questo non e' quasi mai 
usata questa tecnica. 

Il linguaggio macchina lavora su dati numerici conte¬ 
nuti in un byte, quindi con valore da 0 a 255. Per po¬ 
ter trattare numeri piu' grandi o con segno si devono 



usare sottoprogrammi adatti. Lo stesso discorso vale 
per trattare numeri con cifre dopo il punto decimale 
( f loating-point ) e dati alfanumerici. 

Le istruzioni che la CPU riconosce hanno ricevuto un 
nome mnemonico che si preferisce usare per scrivere il 
programma. Esistono dei programmi (alcuni chiamati 
ASSEMBLATORI), che traducono in codice oggetto (combi¬ 
nazione di zeri e uni da porre in memoria) il program¬ 
ma redatto da noi in forma mnemonica (che viene chia¬ 
mato programma sorgente). Il comando MONITOR del BASIC 
3.5 pone a nostra disposizione proprio un programma 
traduttore, anche se non si tratta di un vero 
assemblatore. Parliamo diffusamente del MONITOR nel 
Paragrafo 5.6. 

Anche se, grazie al MONITOR, non dobbiamo tradurre in 
numeri 1 codici delle istruzioni, abbiamo a che fare 
con i byte della memoria per gli operandi delle istru¬ 
zioni e per gli indirizzi. Il sistema di numerazione 
decimale non consente una conversione immediata in 
binario. D'altra parte il sistema binario richiede 
troppe cifre per indicare un byte: ad esempio il nume¬ 
ro 221 decimale corrisponde al numero binario 
11011101. Il sistema di numerazione che e' stato scel¬ 
to per indicare gli operandi delle istruzioni e' quel¬ 
lo a base 16, o ESADECIMALE. In tale sistema vi sono 
16 cifre: 0123456789ABCDEF. Il vantag- 


ESADECIMALE 

BINARI 

DECIMALE 

0 

0000 

0 

1 

0001 

1 

2 

0010 

2 

3 

0011 

3 

4 

0100 

4 

5 

0101 

5 

& 

0110 

6 

7 

0111 

7 

8 

1000 

8 

9 

1001 

9 


1010 

10 

B 

1011 

11 

C 

1100 

12 

D 

1101 

13 

E 

Ilio 

14 

F 

1111 

15 


Figura 5.1 Esadecimale, binario e decimale 







gio dell'esadecimale rispetto al decimale e' che un 
numero esadecimale si può' tradurre in binario piu' in 
fretta, perche' ogni cifra rappresenta 4 bit; rispet¬ 
to al binarlo il vantaggio e' che 1 numeri sono piu' 
compatti. In questo libro e nei libri di ASSEMBLER 
6502 i numeri esadecimali sono preceduti dal segno 
dollaro: il numero $23 ai rappresenta in binario 
0010001 1 . 

Nella Figura 5.1 trovi la corrispondenza dei valori 
delle cifre esadecimali nei sistemi binario e deci¬ 
male. Come nel sistema decimale dopo il numero 9 ai 
passa a 10 ponendo 1 nella posizione piu' a sinistra, 
cosi' nell ' esadec imale dopo $F si passa a $10, che 
vuol dire 16 in decimale. La Figura 5.2 mostra ancora 
un esempio di conversione: lo stesso numero 101 viene 
analizzato prima come binario, poi come esadecimale e 
poi come decimale. A titolo informativo aggiungiamo 
che nel mondo dei calcolatori si fa spesso uso anche 
del sistema a base 8, detto 0TTALE, dove le cifre van^ 
no da 0 a 7. Noi non faremo mai riferimento a tale 
sistema in questo libro, e per questo non lo approfon- 
diamo. 


BASE 2 

BASE 16 

BASE 10 

1 0 1 

1 0 1 

1 0 1 

2 2 2' 2° 

16 2 16' 16° 

IO 2 10' 10° 

4 2 1 

256 16 1 

100 10 1 

4+0+1 

256 + 0 + 1 

100 + 0 + 1 

5 

257 

101 


Figura 5.2 Analisi del numero 101 


Accenniamo, da ultimo, al sistema BCD (Bynary Coded 
Decimai), cioè' decimale a codifica binaria: e' una 
via di mezzo tra esadecimale e decimale, perche' ogni 
cifra BCD rappresenta 4 bit (come 1'esadecimale) e le 
cifre vanno da 0 a 9 (come il decimale). Il difetto di 
questo sistema di rappresentazione e' un notevole 




spreco di bit: un byte può* infatti contenere solo 100 
combinazioni ammesse (da 0 a 99), invece di 255 possi¬ 
bili in binario. Un altro svantaggio risiede nell'eia- 
borazione: consideriamo come esempio una qualsiasi 
operazione di somma: 


NUMERO 
08 + 
1 2 - 

20 


RAPPRESENTAZIONE BCD 
00001000 + 

00010010 - 
->---— -1 -i - - 

00100000 invece di 00011010 
come deve essere. 


Osserviamo subito che l'unita' di calcolo all'interno 
della CPU deve lavorare diversamente se gli operandi e 
il risultato sono in BCD da come opera con gli operan¬ 
di in binario. Nella 7501 e' possibile selezionare il 
modo BCD con un'istruzione, e tornare al modo binario 
con un'altra istruzione, e questa possibilità’ aiuta 
notevolmente il programmatore ASSEMBLER nel gestire i 
dati decimai 1. 


5.2 ORGANIZZAZIONE DELLA CPU 7501 

La 7501 e' una CPU che deriva dalla famiglia 6500, una 
serie di unita' centrali di elaborazione sviluppata 
negli anni *70 negli USA dalla ROCKWELL INTERNATIONAL 
CORPORATION. La "filosofia" dei progettisti e' stata 
quella di creare una CPU dotata di un numero di istru¬ 
zioni relativamente limitato, un numero di registri 
interni anch'esso limitato, ma di potenti e veloci mo- 
di di indirizzamento. Per limitare il numero di istru¬ 
zioni non si sono poste istruzioni specifiche per 
gestire l'I/0: la CPU gestisce solo la memoria, e 
l'I/0 deve essere collegato alla CPU come la memoria. 
Il limitato numero di registri e' compensato dalla 
gestione rapida dei dati in PAGINA ZERO: le celle di 
memoria che partono dall'indirizzo 2 fino a $00FF so¬ 
no da considerarsi come un'estensione dei registri 
interni della CPU, poiché' si possono indirizzare piu' 
rapidamente e permettono indirizzamenti assai poten¬ 
ti, come vedremo nel prossimo paragrafo. 

Osserviamo la Figura 5.3 per vedere come funziona 
internamente la CPU. Partiamo dai registri: la 7501 


































contiene 6 registri a disposizione del programmatore. 
Ogni registro e' formato da 8 bit (tranne il PROGRAM 
COUNTER che ha 16 bit), ed ha la caratteristica di 
poter immagazzinare o fornire alla propria uscita un 
dato di 8 bit. I registri non elaborano le informa¬ 
zioni, ma semplicemente "ricordano" lo stato degli 8 
bit di cui sono composti. I registri sono i seguen-i 
ti : 

. Index register Y: REGISTRO INDICE Y 
. Index register X: REGISTRO INDICE X 
. Stack pointer register: STACK POINTER 
. Accumulatori ACCUMULATORE 


. PCL : meta' 

del 

PROGRAM 

COUNTER, 

gli 

8 

bit 

meno 

significativi 
. PCH: meta' 

del 

PROGRAM 

COUNTER, 

gli 

8 

bit 

piu* 


significativi 

. Processor status register: registro che contiene 7 
bitj ognuno di questi bit, chiamati in gergo FLAG, ha 
un significato che riflette lo stato interno della 
CPU; es30 dipende dalle istruzioni eseguite o dal 
risultato dell'ultima operazione. Dei FLAG parleremo 
piu' dettagliatamente nel seguito di questo paragra¬ 
fo . 

Tutti i registri sono collegati ad un BUS DATI inter¬ 
no, e attraverso questo BUS (insieme di 8 fili che 
corrispondono ciascuno a un bit) possono caricare o 
scaricare dati. Ogni registro risulta collegato anche 
a una parte della CPU indicata nello schema come 
INSTRUCTION DECODE (decodifica dell'istruzione): que¬ 
sto blocco contiene l'unita' di controllo della CPU, 
unita' che controlla tutte le abilitazioni dei regi¬ 
stri (può' comandare a un registro di caricare il da¬ 
to presente sul BUS DATI interno, o di presentare su 
tale BUS il proprio contenuto) e l'ALU (unita' 
aritmetico-logica). La decodifica dell'istruzione e' 
la parte piu' complessa di tutta la CPU: la sua 
funzione e' quella di generare una sequenza di abili¬ 
tazioni dei registri in modo da eseguire l'istruzione 
specificata dal programma (il codice dell'istruzione 
da eseguire viene posto nell'INSTRUCTION REGISTER, che 
lo presenta al blocco INSTRUCTION DECODE, come puoi 
osservare nella parte in basso a destra dello sche¬ 
ma ). 

Abbiamo nominato l'ALU; puoi osservare nello schema 
che tale unita' e' collegata al BUS DATI interno, 
all'ACCUMULATORE, e ai due BUS interni ADL e ADH, che 
sono la parte bassa (ADL, 8 bit meno significativi) e 
parte alta (ADH, 8 bit piu' significativi) del BUS 



INDIRIZZI interno. L'ALU e' in grado di eseguire 
operazioni aritmetico-logiche tra i vari BUS a cui e' 
collegata. Ad esemplo l'ALU e’ in grado di eseguire la 
somma tra il contenuto del BUS DATI interno e 
l'accumulatore, e memorizzare il risultato. Essa e' in 
grado poi di presentare il risultato memorizzato sul 
bus dati; tutte le operazioni che l'ALU esegue sono 
comandate dalla sezione INSTRUCTION DECODE. 

Vediamo ora come la CPU esegue un'istruzione, ad esem¬ 
plo l'istruzione: 

LDA #$24 

che si trova nei byte di memoria $1000 e $1001: 

$1000 - $A9 

$1001 - $24 

L'istruzione LDA # produce l'effetto di caricare 
nell'accumulatore il dato che segue. Il codice di que¬ 
sta istruzione e’ 10101001 binarlo, cioè' $A9. 

Il PROGRAM C0UNTER (che da ora chiameremo P.C.) 
contiene l'indirizzo dell'istruzione che deve essere 
eseguita, cioè' nel nostro caso $1000. Il contenuto 
del P.C. viene presentato sul BUS INDIRIZZI, si atten-< 
de una transizione di 4>0 in modo che la memoria abbia 
il tempo di fornire il dato richiesto, e si carica il 
contenuto del BUS DATI esterno (in basso nel disegno) 
nel registro delle istruzioni. Nel nostro caso tale 
registro contiene il contenuto del byte $1000, cioè' 
$A9. INSTRUCTION DECODE (da ora I.D.) riconosce che si 
tratta dell'istruzione LDA #, ed esegue tutte le 
abilitazioni necessarie, in particolare: 

. PCL (che contiene $00) scarica su DATA BUS inter-' 
no. 

. ALU incrementa DATA BUS ($00) e presenta il risul- 
tato ($01) su ADL interno. 

. PCL carica da ADL ($01): e' stato incrementato il 
PROGRAM C0UNTER. 

. Il BUS indirizzi contiene ora $1001. I.D. attende 
la transizione di #0 per accedere all'indirizzo di 
memoria specificato. 

. Passata la transizione I.D. disabilita l'uscita 
dell'ALU su ADL e l'uscita di PCL sul BUS DATI inter¬ 
no, abilita DATA BUS BUFFER a presentare sul BUS DATI 
interno il contenuto del BUS DATI esterno ($24, il 
contenuto del byte $1001). 

. I.D. abilita l'accumulatore a caricare dal BUS 
DATI interno ($24). E' stato caricato $24 nell'accu¬ 
mulatore. 



. I.D. disabilita l’uscita dal DATA BUS BUFFER, abi-> 
lita PCL ($01) a scaricare sul BUS DATI interno e 
l'ALU incrementa il contenuto del BUS DATI interno, 
presentando il risultato ($02) su ADL. 

. PCL viene abilitato a caricare da ADL, e intanto 
viene effettuato un accesso alla locazione $1002 (si 
attende una transizione di 40) per leggere il codice 
dell'istruzione successiva. 

Non ti spaventare se hai trovato difficile seguire 
tutte queste operazioni: abbiamo affrontato un argo¬ 
mento abbastanza complicato. Non e' essenziale capire 
perfettamente come funziona dentro la CPU per usarla, 
tuttavia pensiamo sia utile avere almeno un'idea di 
come si svolgono le operazioni all'interno di questa 
"scatola nera". Puoi soffermarti su questi argomenti 
in una seconda lettura: ti consigliamo di seguire sul¬ 
la Figura 5.3 tutte le operazioni, se vuoi capire be¬ 
ne l'esempio appena spiegato: in seguito puoi anche 
provare per esercizio (e per divertimento) a far 
eseguire alla CPU qualche altra istruzione. 


7 


o 




REGISTRO DI STATO DEL PROCESSORE P 

RIPORTO 1 = VERO 

ZERO 1 = RISULTATO ZERO 

DISABILITA INTERRUZIONI 1 = DISABILITATO 
MODO DECIMALE 1 = VERO 
ISTRUZIONE BRK 

OVERFLOW 1 = VERO 

SEGNO 1 - SEGNO 

Figura 5.M Registri della CPU 7501 a disposizione 


del programmatore 
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Soffermiamo ora l’attenzione sui FLAG. Abbiamo accen- 
nato che vi e’ un registro a 8 bit chiamato STATO DEL 
PROCESSORE che contiene 7 FLAG. Un FLAG e' un bit che 
ha un certo significato logico. FLAG in inglese vuol 
dire "bandiera": e' come una bandiera che si alza ad 
indicare che un determinato evento si e' verificato. 
Nella Figura 5.4 trovi riassunti i nomi dei registri 
della 7501. Puoi osservare come sia organizzato il 
REGISTRO DI STATO: 

. BIT 7 - N. Flag di SEGNO. Questo bit e’ a 1 se il 
risultato dell’operazione e' negativo. La 7501 tratta 
i numeri negativi in COMPLEMENTO A DUE. Secondo tale 
rappresentazione il bit piu’ significativo rappre- 
senta il segno, (0-positivo, 1-negativo). I numeri 
negativi sono rappresentati come "parte che manca al 
valore assoluto del numero per arrivare a 256" (256 

nei numeri a 8 bit; 65536 nel numeri a 16 bit; 2'n nei 
numeri a n bit). Prendiamo il numero -12. Quanto man¬ 
ca da 12 per arrivare a 256? Manca 244; 244 si rappre¬ 
senta in binario puro 11110100. Questa e’ anche la 
rappresentazione di -12 in complemento a 2. Tale 
rappresentazione a prima vista appare assai scomoda, 
ma e’ in realta’ la piu' efficiente dal punto di vista 
dell'elaborazione. Il FLAG DI SEGNO riporta lo stato 
del bit piu' significativo del risultato. Il suo valo¬ 
re viene aggiornato dopo le istruzioni di somma, 
sottrazione, incremento, decremento, caricamento da 
memoria, confronto, rotazione di bit, scorrimento di 
bit, trasferimento da registro a registro, ecc. La 
tabella nell'Appendice A mostra nella sesta colonna da 
destra quali sono le istruzioni che alterano lo stato 
di questo FLAG. 

. BIT 6 - V. Overflow. Questo bit indica se c'e' 
stato traboccamento nelle operazioni in complemento a 
2, cioè' se il risultato e' troppo grande (>127) o 
troppo piccolo (<-128) per essere rappresentato in 
complemento a 2 con 8 bit. In questo caso il risul¬ 
tato e' sbagliato. Nell'aritmetica in valore assoluto 
e nei byte meno significativi dei numeri in comple¬ 
mento a 2 che occupano piu' di un byte, lo stato di 
questo bit non ha nessun significato. Solamente somma 
e sottrazione alterano lo stato di questo FLAG, oltre 
all'istruzione BIT (in questo caso V assume un signi¬ 
ficato diverso, e indica lo stato del bit 6 del risul¬ 
tato), e CLV che pone a 0 lo stato di questo bit. 

. BIT 5 - non utilizzato 

. BIT 4 - B. Istruzione BRK. L'istruzione BRK e' 



molto particolare: quando viene incontrata la CPU ese- 
gue le stesse operazioni di quando riceve un intera 
rupt (vedi Paragrafi 5.5 e 4.3). con la differenza che 
il registro di stato salvato nello stack contiene 1 
nella posizione del bit di BREAK. Normalmente nella 
programmazione non viene usato. Polche’ non esistono 
istruzioni che permettono di vedere lo stato di que¬ 
sto FLAG nella CPU, bisogna prelevarlo dallo stack con 
una piccola routine. Puoi vedere questa routine 
disassemblando il sistema operativo, partendo dall'in- 
dirizzo $CE00. Se il FLAG di BRK e’ a 1 il SISTEMA 
OPERATIVO fa un salto indiretto a $0316, se no a 
$0314. 

. BIT 3 - D. Modo decimale. Abbiamo visto nel prece-' 
dente paragrafo che rappresentando i numeri col modo 
BCD (decimale a codifica binaria) le operazioni 
aritmetiche devono essere eseguite con un criterio 
diverso rispetto al binarlo puro. Questo FLAG, che e’ 
controllato dal programmatore, informa l’ALU che i 
conti vanno fatti in BCD. L'istruzione SED attiva il 
modo BCD, e CLD lo disattiva. 

. BIT 2-1. Disabilita le interruzioni: questo bit 
e' sotto il controllo diretto del programmatore, cioè’ 
non cambia in base al risultato di operazioni; lo si 
può' porre a 1 o a 0, l'istruzione SEI lo pone a 1, 
l'istruzione CLI lo pone a 0. Come tutti gli altri 
FLAG il suo valore viene aggiornato anche dopo le 
istruzioni PLP e RTI, che prelevano lo stato del 
processore dallo STACK. 

. BIT 1 - Z. Risultato zero. Questo e’ uno dei FLAG 

piu' usati nei programmi in ASSEMBLER: indica se tut- 
ti gli 8 bit del risultato sono a 0, e solo in tal ca- 
so Z vale 1. Come per il FLAG N, anche il FLAG Z vie- 
ne modificato da numerose istruzioni, come puoi osser¬ 
vare nella quinta colonna da destra dell'Appendice A. 

. BIT 0 - C. Carry, o riporto o prestito. Questo 

FLAG viene alterato dal risultato di diverse opera¬ 
zioni, e talvolta con significati diversi. Nella som¬ 
ma indica se il risultato ha superato 255, e nella 
sottrazione indica se c'e' stato prestito. Puoi vede¬ 
re quali operazioni interessano il FLAG C nella quar¬ 
ta colonna da destra della tabella nell'Appendice A. 
Abbiamo nominato 1 termini STACK e STACK POINTER, 
senza descrivere il loro significato: lo STACK e' 
un'area di memoria riservata alla CPU dove la CPU po¬ 
ne delle informazioni in maniera temporanea. STACK 
vuol dire "catasta", e il suo funzionamento e' parago¬ 
nabile a quello di una catasta o, piu' elegantemente. 



di una struttura di dati di tipo LIFO (Last In, First 
Out, cioè* l'ultimo dato entrato e' il primo che 
esce). Nella 7501 lo STACK occupa le locazioni da $100 
a $1FF, cioè' la pagina 1 della memoria. Lo STACK 
POINTER e' un registro della CPU di 8 bit, che indica 
la parte meno significativa del primo byte libero del¬ 
lo STACK (la parte piu' significativa e' sempre $01). 
All'accensione lo STACK POINTER viene posto a--$FF. 
Ogni volta che si spinge un dato nello STACK (PUSH) il 
dato viene posto all'indirizzo specificato dallo STACK 
POINTER, dopodiché’ lo STACK POINTER viene decremen-’ 
tato. 


$1FF 


PULL 


STACK POINTER 


PUSH 

I 


ZONA DELLO STACK 
OCCUPATA 


ZONA LIBERA DELLO STACK 


$100 

Figura 5.5 STACK e STACK POINTER 


Nel prelevare un dato dallo STACK (PULL) viene prima 
incrementato lo STACK POINTER e poi prelevato il dato. 
Lo STACK e' molto importante per il funzionamento del 
calcolatore: l'istruzione JSR (salta alla subrou¬ 
tine), ad esemplo, usa lo STACK per memorizzare 
l'indirizzo dove tornare al momento dell'istruzione 
RTS, ed anche l'INTERRUPT fa uso dello STACK per poter 
riprendere il programma alla fine della routine di 
servizio dell'interrupt. Vi sono diverse istruzioni 
che fanno uso dello STACK, come PHP, PLP, PHA, PLA, 
RTS, RTI , BRK ; inoltre lo STACK POINTER può' essere 
trasferito nel registro X (TSX) e viceversa (TXS). Ve¬ 
di il Paragrafo 5. *l per la descrizione del funzio¬ 
namento di queste istruzioni. 

Abbiamo già’ visto la funzione dei registri STATO del 
processore, STACK POINTER, PROGRAM COUNTER. Vediamo 
ora 1'ACCUMULATORE. 

Come puoi notare dalla Figura 5.3 1'ACCUMULATORE e' 
collegato direttamente all'ALU. E' questo il registro 





a cui fa riferimento gran parte delle istruzioni 
ar i tmet ico->logiche . Sull'accumulatore e' possibile 
effettuare scorrimento di bit, operazioni logiche AND, 
OR, EOR (Exclusive OR), somma, sottrazione. 

I due registri indice X e Y sono usati come indici 
negli indirizzamenti indicizzati, come puoi meglio 
osservare nel prossimo paragrafo. 


5.3 I MODI DI INDIRIZZAMENTO 

Nella descrizione della 7501 abbiamo detto che tale 
CPU ha molti modi di indirizzamento, e molto potenti; 
ora passiamo a descriverli. 

Il modo di indirizzamento in una CPU e* il modo con 
cui e' possibile ricavare l'indirizzo dell'operando. 
Poiché' ogni istruzione ha lo scopo di produrre qual-< 
che effetto su qualche operando (registro della CPU o 
cella di memoria), possiamo dedurre che ogni istru¬ 
zione (anche NOP, che fa cambiare il PROGRAM COUNTER 
per eseguire l'istruzione seguente) usa un modo di 
indirizzamento. Nella prima riga dell'Appendice A so-< 
no riportati tutti i modi di indirizzamento della 
7501. VEDIAMOLI UNO PER UNO. 

. IMMEDIATO. L'operando segue l'istruzione. Si indi¬ 
ca con il segno # prima dell'operando. Ad esempio: 

LDA #$24 

si codifica in memoria cosi': 

$A9 $24 

Nell'accumulatore viene posto il numero $24. 

.' ASSOLUTO. L'operando e' contenuto in memoria 
all'indirizzo specificato dai due byte seguenti il 
codice dell'istruzione: 

LDA $134F 

si codifica in memoria cosi': 

$AD $4F $13 

Nell'accumulatore viene posto il numero contenuto nel 
byte di indirizzo $134F (prima il byte basso e poi 
quello alto). 

. PAGINA ZERO. L'operando e' contenuto in memoria 
all'indirizzo della pagina 0 specificato dal byte che 
segue l'istruzione: 

LDA $24 

si codifica in memoria cosi': 

$A5 $24 

A differenza dell'immediato, nell'accumulatore viene 
posto il byte il cui indirizzo e' contenuto nel byte 
di indirizzo $0024 (e non il numero $24). 
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. ACCUMULATORE. L'operando e' dentro la CPU, e 
precisamente nell'accumulatore: 

LSR 

si codifica in memoria cosi': 

$4A 

Viene fatto scorrere verso destra il contenuto 
dell'accumulatore. 

. IMPLICATO. L'operando e' sottinteso dal tipo di 
istruzione : 

CLC 

si codifica in memoria cosi': 

$18 

Azzera il CARRY. L'operando e' palesemente il CARRY. 

. ASSOLUTO,X. L'operando e' contenuto in memoria, e 
l'indirizzo si ricava sommando al due byte, che seguo¬ 
no il codice dell'istruzione, il contenuto del resi¬ 
sto X : 

LDA $1030 , X 

si codifica in memoria cosi’: 

$BD $3D $10 

Supponiamo che il registro X contenga $D1 : $103D e' 

sommato a $D1 , ottenendo $110E. L’operando e' conte-* 
nuto all'indirizzo $110E. 

. ASSOLUTO,Y. Opera come ASSOLUTO,X, ma anziché' il 
registro X usa il registro Y: 

LDA $103D,Y 

si codifica in memoria cosi': 

$B9 $3D $10. 

. PAGINA 0,X L'operando si trova in pagina 0, 

all'indirizzo ottenuto sommando il byte seguente 

l'istruzione e il registro X: 

LDA $F0,X 

si codifica in memoria cosi': 

$B5 $F0 

Se X contiene $32, nell’accumulatore viene posto il 

byte contenuto nella cella $0022 ($F0 + $32 -$122, ma 

l'operando viene prelevato sempre dalla pagina 0). 

. PAGINA 0, Y. Opera come PAGINA 0,X, ma usa il regi¬ 
stro Y. E' implementato solo con le istruzioni LDX e 
STX : 

LDX $20,Y 

si codifica in memoria cosi': 

$B6 $20. 

. INDIRETTO. L'istruzione e' seguita da due byte che 
indicano l'indirizzo del puntatore dove si trova 
l'indirizzo dell'operando: 

JMP ($2000) 
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ai codifica in memoria cosi': 

$6C $00 $20 

Produce un salto non alla cella $2000, ma all'in¬ 
dirizzo specificato nelle celle $2000 e $2001. Se ta¬ 
li celle contengono i numeri $12 e $34 rispetti¬ 
vamente, la CPU salta all'indirizzo $3412 (il byte 
piu' significativo e' sempre dopo quello meno signifi¬ 
cativo ). 

. (INDIRETTO) ,Y. Si Chiama INDIRETTO INDICIZZATO, ed 
e' uno dei modi piu' potenti. L'istruzione e' seguita 
da un byte, che indica l'indirizzo in pagina 0 del 
puntatore al dato. All'indirizzo contenuto nel punta¬ 
tore va sommato il contenuto del registro Y per rica¬ 
vare l'indirizzo dell'operando: 

LDA ($03),Y 

si codifica in memoria cosi': 

$B1 $03 

Se le celle $0003 e $0004 contengono rispettivamente 
$14 e $2E e il registro Y contiene $F1, l'indirizzo 
che risulta e' il seguente: $2E14 + $F1 - $2F05. Vie¬ 

ne caricato l'accumulatore col contenuto della cella 
$2F05. 

. (INDIRETTO,X). Si chiama INDICIZZATO INDIRETTO, e 
differisce dal precedente. Il contenuto del registro X 
e' sommato al byte seguente l'istruzione, il risul¬ 
tato indica l'indirizzo di un puntatore in pagina 0. 
L'operando si trova all'indirizzo specificato dal 
puntatore suddetto: 

LDA ($F0,X ) 

si codifica in memoria cosi': 

$A1 $F0 

Se X contiene $31 viene sommato $F0 con $31 , otte¬ 
nendo $121. E' considerata la parte meno signifi¬ 
cativa, e l'indirizzo dell'operando e' prelevato dalle 
celle $21 e $22. 

. RELATIVO. Questo indirizzamento e' usato per tut¬ 
te le istruzioni di salto condizionato, o BRANCH. 
L'operando, che segue l'istruzione, e' un byte consi¬ 
derato come un numero in complemento a due (può' 
variare da -128 a +127). L'operando e' sommato al 
PROGRAM C0UNTER e il risultato ottenuto e' immagaz¬ 
zinato nel PROGRAM C0UNTER. L'operando indica lo 
"spiazzamento" da fornire al PROGRAM C0UNTER nel caso 
in cui si verifica la condizione di salto. 

BCC $09 

si codifica in memoria cosi': 

$90 $09 


200 



e produce l'effetto seguente: se il CARRY e a 1 pre-» 
para il P.C. per eseguire l'istruzione che segue, se 
invece CARRY - 0 al P.C viene sommato 9 rispetto sem-> 
pre all'istruzione che segue, e il programma riprende 
dal nono byte che segue l'istruzione dopo BRANCH (ma 
non necessariamente dalla nona istruzione, perche' una 
istruzione può' occupare uno, due o tre byte). Nota 
che usando il MONITOR devi fornire l'indirizzo asso-» 
luto, e il MONITOR calcola l'indirizzo relativo. Il 
vantaggio di questo tipo di indirizzamento e' che puoi 
trasferire il programma in un'altra zona della memo¬ 
ria senza cambiare gli indirizzi dei salti. 

Abbiamo analizzato tutti i modi possibili di indiriz-» 
zamento della CPU 7501. Non occorre impararli tutti a 
memoria subito, ma ti consigliamo di rileggere quelli 
che non hai capito prima di avventurarti nella scrit¬ 
tura di programmi in linguaggio ASSEMBLER. 


5.H IL SET DI ISTRUZIONI 

Nell'esposizione del completo set di istruzioni del 
microprocessore 7501, distingueremo cinque categorie 
principali : 

1) .trasferimento dati, 

2) .logico matematiche, 

3) .controllo del flusso, 

4) .manipolazione dei flag, 

5) .uso dello stack. 

.1): Consentono di trasferire dati di 8 bit da un 
registro all'altro, da un registro alla memoria o 
viceversa. 

.2): Permettono al microprocessore di eseguire opera¬ 
zioni aritmetiche (piu' e meno), operazioni logiche 
(AND, OR, EOR (exclusive OR)), operazioni di scorri¬ 
mento (shift e rotazioni), incremento e decremento. 

.3): Sono usate per i salti condizionati, salti non 
condizionati, salti a subroutine e gestione dell'in- 
terrupt. 

.*1 ) : Consentono di agire sul registro di stato del 
processore. 

.5): Permettono di introdurre ed estrarre dati dallo 
stack, senza doverti preoccupare della gestione dello 
stack pointer. 
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Nel corso dell'esposizione compaiono alcuni simboli di 
cui riportiamo 11 significato: 

A: accumulatore 

M: cella di memoria (byte di memoria) 

P: registro di stato 

S: stack pointer 

X: registro X 

Y: registro Y 

DATO: dato specificato 

PC: program counter 

STACK: l'ultima cella dello stack 

-: assegnamento 

A: AND logico 

V: OR logico 

V: EOR (OR esclusivo) 

C: NOT CARRY 

(...): contenuto di ... 

BN: bit N 

MN: bit N della cella (byte) di memoria specificata. 

V: FLAG di overflow 

N: FLAG di segno 

I: FLAG di interrupt 

D: FLAG decimale 

C: FLAG di carry 

Z: FLAG di zero 


5.4.1 LE OPERAZIONI LOGICHE 

Prima di illustrare le istruzioni del set della CPU 
7501 , vorremmo spendere qualche parola riguardo alle 
operazioni logiche AND OR ed EOR (exclusive OR). 

Hai già' incontrato le prime due in BASIC e le hai 
usate per fare di piu' condizioni una sola condi¬ 
zione, ad esempio: 

IF (A AND Z<1) OR A$-"PIPP0" THEN ... 


l'istruzione dopo il THEN viene eseguita se sono vere 
entrambe le prime due condizioni o se e' vera la ter¬ 
za: cioè' se e' vera la condizione composta. 

Ma le operazioni logiche AND e OR sono piu' generali 
di quanto non possa sembrare dall'esempio appena fat¬ 
to: esse possono agire, infatti, anche tra numeri 
interi, oltre che tra condizioni vere o false. 
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Cominciamo a definire le operazioni logiche tra bit: 


0 AND 0-0 
0 AND 1 - 0 
1 AND 0-0 
1 AND 1 - 1 


0 OR 0 - 0 
0 OR 1 - 1 
1 OR 0 - 1 
1 OR 1 - 1 


0 EOR 0-0 
0 EOR 1 - 1 
1 EOR 0 - 1 
1 EOR 1 - 0 


Il risultato della AND tra due bit e* quindi uguale a 
1 solo se il primo E il secondo bit sono uguali a 1; 
il risultato della OR tra due bit e* uguale a uno se 

lo sono il primo 0 il secondo (o entrambi); il risul¬ 

tato della EOR tra due bit e' uguale a 1 3e lo sono il 
primo 0 il secondo (ma non entrambi). 

Estendere ora il significato dell'operazione a numeri 
interi di X bit e' semplice: il bit N del risultato di 
un'operazione logica tra byte e' uguale al risultato 

dell'operazione logica tra i bit corrispondenti 

dell'operando; ad esempio: 

2 AND 3-2 
infatti : 

00000010 AND 
00000011 - 
00000010 cioè' 2 


Le AND e OR del BASIC sono proprio le operazioni logi¬ 
che che abbiamo descritto. 

Prova a chiedere al tuo COMMODORE 16: 


PRINT 2 AND 3 

e vedrai che il risultato sara' corretto. Queste 
operazioni vanno bene anche per legare tra di loro 
condizioni perche' il COMMODORE 16 assegna ad 
un'espressione vera il valore -1 (in complemento a due 
su 16 bit - 16 bit a 1) e ad una falsa il valore 0 (16 
bit a 0) (prova a scrivere PRINT 2>7 o PRINT 2<7 ) : 
quando deve combinare tra loro due condizioni con la 
funzione AND il risultato e' -1 (cioè' vero) solo se 
entrambe le condizioni valgono -1 (cioè' sono vere); 
se l'operazione e' la OR il risultato e' -1 se almeno 
una delle due vale -1. 

A questo punto sorge spontanea una domanda: perche' 
nel set di istruzioni di un microprocessore appaiono 
queste strane operazioni mentre non compaiono opera¬ 
zioni piu' usuali come la moltiplicazione e la 
divisione? Perche' queste operazioni ti permettono di 
leggere o alterare un singolo bit o un gruppo di bit 
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di un byte, cosa questa assai piu' importante, in mol¬ 
ti casi, di una moltiplicazione o una divisione (che 
si possono comunque ottenere grazie a un opportuno 
algoritmo). Ad esemplo: vuoi sapere quanto vale il bit 
3 di un certo byte? Basta fare la AND tra questo byte 
e 8 (2*3): se il risultato e' 0 il bit vale 0, se e' 8 
il bit e' a 1. Altro esempio: vuoi porre a 1 il bit 5? 
Fai la OR con 32 (2*5). Se lo volevi a 0? Fai la AND 
con 223 (255~32 cioè' un numero che ha tutti i bit a 
uno tranne il quinto).La EOR a cosa serve? Serve a 
cambiare il valore di uno o piu* bit. Ad esempio 
01010011 EOR 00001111 - 01011100: questa operazione ha 
cambiato il valore del bit 3-0 del primo operando 
(cioè' quelli che valgono 1 nel secondo operando). Se 
fai una EOR tra il contenuto di un byte e $FF "neghi" 
il contenuto del byte: cioè' i bit che valevano 1 val¬ 
gono 0 e viceversa. 

Ti proponiamo il programma AND&OR che genera opera¬ 
zioni logiche casuali tra numeri binari di 8 bit. Do¬ 
po aver calcolato la risposta premi un tasto e il tuo 
calcolatore ti dara' la conferma. 


0 REM FIHD& OR 

10 fi=INT<RHD<0>#256 > : B=INT<RND<0 >*256 > 

11 OP=IMT <RND <0j *2 > 

20 PRINTCHP*-:: 14 7 :• 

38 FORI=0TO7 

40 IFRRMD2 tC7-1 THENCHRR, 4+1,3, •••» = 
ELSECHRR,4+1,3,"O" 

50 NEXTI < CHRP:, 12,3, STR*<fl > 

60 IFOF'THENCHRR ,1,4, "OR " : ELSECHRR ,0,4," RHD" 
70 FORI=0TO7 

30 IF B RHD2tC7-I>THENCHRR,4+I,4, : 

ELSECHRR,4+1,4,"O" 

30 MENTI : CHRR, 12,4, STRi (. B> 

100 CHRR,2,6,"=" 

110 IFOPTHENR=RORB:ELSER=RRNDB 
115 GETKEYR* 

120 FORI=0TO7 

130 IFRRND2T<7-1) THENCHRR,4+1,6,> 
ELSECHRR,4+1,6,"O" 

140 MENTI ^ CHRR,12,6,STR*<R> 

150 GETKEVR* RUM 


2 0 ^4 



5 . * 1.2 ISTRUZIONI DI TRASFERIMENTO 


LDA: LoaD Accumulator 


A-DATO 


Il dato specificato viene posto nell'accumulatore. 
INDIRIZZAMENTO: immediato - assoluto - pagina 0 - 

indicizzato X e Y - pagina 0 indicizzato X - indi¬ 
retto indicizzato - indicizzato indiretto. 

FLAG MODIFICATI: zero e segno. 


LDX: LoaD X register X-DATO 

Il dato specificato viene posto nel registro X. 
INDIRIZZAMENTO: immediato - assoluto - pagina 0 

indicizzato Y - pagina 0 indicizzato Y. 

FLAG MODIFICATI: zero e segno. 


LDY: LoaD Y register Y-DATO 

Il dato specificato viene posto nel registro Y. 
INDIRIZZAMENTO: immediato - assoluto -• pagina 0 -> 

indicizzato X - pagina 0 indicizzato X. 

FLAG MODIFICATI: zero e segno. 


STA: STore Accumulator M-(A) 

Il contenuto dell'accumulatore viene posto nella cel¬ 
la di memoria di indirizzo specificato. Il contenuto 
dell'accumulatore non viene cambiato. 

INDIRIZZAMENTO: assoluto - pagina 0 - indicizzato X e 
Y - pagina 0 indicizzato X - indiretto indicizzato - 
indicizzato indiretto. 

FLAG MODIFICATI: nessuno. 


STX: STore X register M«(X) 

Il contenuto del registro X viene posto nella cella di 
memoria di indirizzo specificato. Il contenuto del 
registro X non viene cambiato. 

INDIRIZZAMENTO: assoluto - pagina 0 - pagina 0 

indicizzato Y. 

FLAG MODIFICATI: nessuno. 
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STY: STore Y register M-(Y) 

Il contenuto del registro Y viene posto nella cella di 
memoria di indirizzo specificato. Il contenuto del 
registro Y non viene cambiato. 

INDIRIZZAMENTO: assoluto - pagina 0 - pagina 0 

indicizzato X. 

FLAG MODIFICATI: nessuno. 


TAX: Transfer Accumulator to X register X-(A) 

Il contenuto dell'accumulatore viene posto nel regi" 
atro X. Il contenuto dell'accumulatore non viene 
camblato. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: zero e segno. 


TAY: Transfer Accumulator to Y register Y-(A) 

Il contenuto dell'accumulatore viene posto nel regi¬ 
stro Y. Il contenuto dell'accumulatore non viene 
cambiato. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: zero e segno. 


TSX: Transfer Stack pointer to X register X«(S) 

Il contenuto dello stack pointer viene posto nel regi¬ 
stro X. Il contenuto dello stack pointer non viene 
cambiato. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: zero e segno. 


TXA: Transfer X register to Accumulator A-(X) 

Il contenuto del registro X viene posto nell'accu¬ 
mulatore. Il contenuto del registro X non viene 
cambiato. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: zero e segno. 


TXS: Transfer X register to Stack pointer S-(X) 
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Il contenuto del registro X viene posto nello stack 
pointer. Il contenuto del registro X non viene cambia¬ 
to . 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: nessuno. 


TYA: Transfer Y register to Accumulator A«(Y) 

Il contenuto del registro Y viene posto nell'accu¬ 
mulatore. Il contenuto del registro Y non viene 
cambiato. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: zero e segno. 


5 . . 3 OPERAZIONI LOGICO MATEMATICHE. 


ADC: ADd with Carry A-(A)+DATO+C 

Somma il contenuto dell'accumulatore con il dato 
specificato e il carry. Il risultato viene posto 
nell’accumulatore. 

INDIRIZZAMENTO: immediato - assoluto - pagina 0 - 
indicizzato X e Y - pagina 0 indicizzato X - indi¬ 
retto indicizzato - indicizzato indiretto. 

FLAG MODIFICATI: carry, zero, overflow e segno. 


AND: AND A-(A ) ADATO 

Esegue l'AND logico tra l'accumulatore e il dato 
specificato. Il risultato viene posto nell'accu¬ 
mulatore . 

INDIRIZZAMENTO: immediato - assoluto - pagina 0 - 

pagina 0 indicizzato X - indicizzato X e Y - indi¬ 
retto indicizzato - indicizzato indiretto. 

FLAG MODIFICATI: zero e segno. 


ASL: Arithmetic Shift Left 

C-B7-B6-B5-Bl)-B3-B2-B1-B0 = 0 

Sposta il contenuto dell'accumulatore o della cella di 
memoria specificata di una posizione bit verso sini¬ 
stra. Il contenuto del bit 0 diventa 0 e il contenuto 
del bit 7 viene posto nel flag di carry. Questa opera- 
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zione equivale ad eseguire una moltiplicazione per 2. 
INDIRIZZAMENTO: accumulatore - assoluto - pagina 0 
indicizzato X -> pagina 0 indicizzato X. 

FLAG MODIFICATI: carry, zero e segno. 

-i-H -1 — — -i — — — -, — -, 


BIT : test BITs in memory 

(A)A(M) N-(M7) - V-(M6) 

Esegue la AND logica tra il contenuto dell'ac¬ 
cumulatore e il contenuto della cella di memoria 
specificata. Il risultato non viene posto da nessuna 
parte ma viene alterato il flag di zero. Pone il 
contenuto del bit 7 della cella di memoria speci¬ 
ficata nel flag di segno e il contenuto del bit 6 nel 
flag di overflov. 

INDIRIZZAMENTO: assoluto - pagina 0. 

FLAG MODIFICATI: zero, overflow e segno. 


CMP: CoMPare with accumulator 


(A)-DATO 


Sottrae al contenuto dell'accumulatore il dato speci¬ 
ficato. Il risultato non viene posto da nessuna parte 
ma vengono alterati i flag di carry, zero e segno (C-1 
indica A>-DATO, Z-1 indica A-DATO). 

INDIRIZZAMENTO: immediato - assoluto - pagina 0 - 
indicizzato X e Y - pagina 0 indicizzato X - indi¬ 
retto indicizzato - indicizzato indiretto. 

FLAG MODIFICATI: carry, zero e segno. 


CPX: Compare with X register 


(X)-DATO 


Sottrae al contenuto del registro X il dato speci¬ 
ficato. Il risultato non viene posto da nessuna parte 
ma vengono alterati i flag di carry, zero e segno (C-1 
indica A>«DAT0, Z-1 indica A-DATO). 

INDIRIZZAMENTO: immediato - assoluto - pagina 0 
FLAG MODIFICATI: carry, zero e segno. 

----------- 


CPY: Compare with Y register (Y)-DATO 

Sottrae al contenuto del registro Y il dato speci¬ 
ficato. Il risultato non viene posto da nessuna parte 
ma vengono alterati i flag di carry, zero e segno (C-1 
indica A>-DAT0, Z-1 indica A-DATO). 
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INDIRIZZAMENTO: immediato - assoluto pagina 0 
FLAG MODIFICATI: carry, zero e segno. 


DEC: DECrement M«(M)-'1 

Decrementa il contenuto della cella di memoria speci¬ 
ficata. Il risultato viene posto nella cella stessa. 
INDIRIZZAMENTO: assoluto - pagina 0 - indicizzato X - 
pagina 0 indicizzato X. 

FLAG MODIFICATI: zero e segno. 


DEX: DEcrement X register X—(X} — 1 

Decrementa il contenuto del registro X. Il risultato 
viene posto nello stesso registro. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: zero e segno. 


DE Y: DEcrement Y register 


Y-(Y)-1 


Decrementa il contenuto del registro Y. Il risultato 
viene posto nello stesso registro. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: zero e segno. 


EOR: Exclusive OR 


A-(A)VDATO 


Esegue l'OR esclusivo tra l'accumulatore e il dato 
specificato. Il risultato viene posto nell'accu-- 
mulatore. 

INDIRIZZAMENTO: immediato - assoluto pagina 0 - 

pagina 0 indicizzato X - indicizzato X e Y - indi¬ 
retto indicizzato - indicizzato indiretto. 

FLAG MODIFICATI: zero e segno. 


INC: INCrement M-(M)+1 

Incrementa il contenuto della cella di memoria speci¬ 
ficata. Il risultato viene posto nella cella stessa. 
INDIRIZZAMENTO: assoluto -> pagina 0 - indicizzato X - 
pagina 0 indicizzato X. 

FLAG MODIFICATI: zero e segno. 
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INX: INcrement X register X-(X)+1 

Incrementa il contenuto del registro X. Il risultato 
viene posto nello stesso registro. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: zero e segno. 


INY: INcrement Y reglster Y-(Y)+1 

Incrementa il contenuto del registro Y. Il risultato 
viene posto nello stesso registro. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: zero e segno. 

— — --. “ -1--* -n-* — n 1“ t'-i-' — “ r* 


LSR: Logic Shift Right 

C-B0-B1-B2-B3-BM-B5-B6-B7-0 

Sposta il contenuto dell’accumulatore o della cella di 
memoria specificata di una posizione bit verso destra. 
Il contenuto del bit 7 diventa 0 e il contenuto del 
bit 0 viene posto nel flag di carry. Questa opera-* 
zione equivale ad eseguire una divisione intera per 2. 
INDIRIZZAMENTO: accumulatore - assoluto - pagina 0 i 
indicizzato X - pagina 0 indicizzato X. 

FLAG MODIFICATI: carry, zero e segno. 

. -H—— —i—1*1 — \ — — 


ORA: OR Accumulator A«(A)VDATO 

Esegue l'OR logico tra l'accumulatore e il dato speci¬ 
ficato. Il risultato viene posto nell’accumulatore. 
INDIRIZZAMENTO: immediato - assoluto - pagina 0 - 

indicizzato X e Y - pagina 0 indicizzato X - indi¬ 
retto indicizzato - indicizzato indiretto. 

FLAG MODIFICATI: zero e segno. 

-1 — - — — ~ — — — — — — — — — - — — ~ ~ ~ — — _ 1 — — _ — — — — — - — — — - — — — — — 


ROL: Rotate Left 


C-B7-B6-B5-B4-B3-B2-B1-B0-C 


Ruota il contenuto dell’accumulatore o della cella di 
memoria specificata di una posizione bit verso sini¬ 
stra. Nel bit 0 viene posto il contenuto del flag di 
carry, nel quale viene trasferito il contenuto del bit 
7. 
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pagina 0 


INDIRIZZAMENTO: accumulatore - assoluto - 
indicizzato X - pagina 0 indicizzato X. 
FLAG MODIFICATI: carry, zero e segno. 


ROR: Rotate Right 

C-B0-B1-B2-B3-B4-B5-B6-B7-C 

Ruota il contenuto dell'accumulatore o della cella di 
memoria specificata di una posizione bit verso destra. 
Nel bit 7 viene posto il contenuto del flag di carry, 
nel quale viene trasferito il contenuto del bit 0. 
INDIRIZZAMENTO: accumulatore - assoluto - pagina 0 - 
indicizzato X - pagina 0 indicizzato X. 

FLAG MODIFICATI: carry, zero e segno. 



SBC: SuBtract with Carry A-(A)-DATO-C 


Sottrae al contenuto dell'accumulatore il dato speci¬ 
ficato. Il risultato viene posto nell’accumulatore. 
Devi usare il carry al contrario di come lo usi per 
l'istruzione ADC: carry a 0 vuol dire prestito; devi 
quindi porre a 1 il carry prima di eseguire un'opera¬ 
zione SBC senza prestito. Dopo un operazione SBC si 
ha: C-1 indica A>-DAT0, Z-1 indica A-DATO. 
INDIRIZZAMENTO: immediato -• assoluto - pagina 0 - 

indicizzato X e Y - pagina 0 indicizzato X - indi¬ 
retto indicizzato *» indicizzato indiretto. 

FLAG MODIFICATI: carry, zero, overflow e segno. 

- -• m ^ ^ ^ — -m — -m — -4 — — —. -» — ^ — — ^ 

5.4.4 ISTRUZIONI DI CONTROLLO DEL FLUSSO 


BCC: Branch on Carry Clear 

Salta all'indirizzo specificato se il flag di carry 
contiene 0. 

INDIRIZZAMENTO: relativo. 

FLAG MODIFICATI: nessuno. 

->-l—i — -i>^—— -^-1—, -i——-ì — — — — -n — — — — —-«-« 


BCS: Branch on Carry Set 

Salta all'indirizzo specificato se il flag di carry 
contiene 1 . 

INDIRIZZAMENTO: relativo. 

FLAG MODIFICATI: nessuno. 
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BEQ: Branch on EQual 

Salta all'Indirizzo specificato se il flag di zero 
contiene 1 (cioè' se il risultato e' 0). 
INDIRIZZAMENTO: relativo. 

FLAG MODIFICATI: nessuno. 


BMI: Branch on MInus 


Salta all'indirizzo specificato se il flag di segno 
contiene 1 (cioè' se il risultato e' negativo). 
INDIRIZZAMENTO: relativo. 

FLAG MODIFICATI: nessuno. 


BNE: Branch on Not Equal 


Salta all'indirizzo specificato se il flag di zero 
contiene 0 (cioè' se il risultato e' diverso da 0). 
INDIRIZZAMENTO: relativo. 

FLAG MODIFICATI: nessuno. 


BPL: Branch on PLus 

Salta all'indirizzo specificato se il flag di segno 
contiene 0 (cioè’ se il risultato e' positivo o ugua¬ 
le a 0 ) . 

INDIRIZZAMENTO: relativo. 

FLAG MODIFICATI: nessuno. 


BRK: BReaK 

Salva nello stack (PC)+2 e i flag, salta all'in¬ 
dirizzo indicato da $FFFE $FFFF (come per gli inter- 
rupt). Per riconoscere se il salto e' stato generato 
da un interrupt o dall' istruzione BRK devi guardare 
il flag di break salvato nello stack. BRK viene usato 
per trovare errori nel programma (come lo STOP del 
BASIC ) . 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: break 
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BVC: Branch on oVerflow Clear 


Salta all'indirizzo specificato se il flag di over- 
flow contiene 0 (cioè' se non si e' verificato 
overflow). 

INDIRIZZAMENTO: relativo. 

FLAG MODIFICATI: nessuno. 


BVS: Branch on oVerflow Set 

Salta all'indirizzo specificato se il flag di over-i 
flow contiene 1 (cioè' se si e' verificato overflow). 
INDIRIZZAMENTO: relativo. 

FLAG MODIFICATI: nessuno. 


JMP: JuMP 

Salta all'indirizzo specificato. 
INDIRIZZAMENTO: assoluto -> indiretto. 
FLAG MODIFICATI: nessuno. 


JSR: Jump SubRoutine 

Salva nello stack (PC)+2 (l'indirizzo prima 
dell'istruzione che segue JSR) , salta all’indirizzo 
specificato. 

INDIRIZZAMENTO: assoluto. 

FLAG MODIFICATI: nessuno. 


i a ■ a a a a > : 


NOP: No OPeration 

Non fa nulla per due cicli di clock. Si usa per cicli 
di ritardo. 


INDIRIZZAMENTO: implicito. 
FLAG MODIFICATI: nessuno. 


RTI : ReTurn from Interrupt 

Estrae dallo stack il registro di stato e il program 
counter che erano stati salvati da una chiamata ad 
interrupt o da una istruzione BRK. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: tutti. 













RTS: ReTurn from Subroutine 

Estrae dallo stack il program counter che era stato 
salvato da una istruzione JSR e lo incrementa di 1. 
INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: nessuno. 


5.4.5 ISTRUZIONI SUI FLAG. 


CLC: CLear Carry C-0 

Viene azzerato il flag di carry. Generalmente si usa 
prima di un'istruzione ADC. 

INDIRIZZAMENTO: implicito 
FLAG MODIFICATI: carry. 


CLD: CLear Decimai D-0 

Viene azzerato il flag BCD. Quando questo flag contie- 
ne 0, l'ALU esegue le operazioni aritmetiche in bina¬ 
rio. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: decimale. 


CLI: CLear Interrupt 1-0 

Viene azzerato il flag di interrupt. Quando questo 
flag contiene 0 la CPU risponde alle chiamate d'inter- 
rupt. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: interrupt. 


CLV: CLear oVerflow V-0 

Viene azzerato il flag di overflow. 
INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: overflow. 



SEC: SEt Carry C-1 

Viene posto a uno il flag di carry. Generalmente si 
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usa prima di un'istruzione SBC. 
INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: carry. 


SED: SEt Decimai D-1 

Viene posto a uno il flag decimale. Quando questo flag 
contiene 1, l'ALU esegue le operazioni aritmetiche in 
BCD. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: decimale. 


SEI: SEt Interrupt 1-1 

Viene posto a uno il flag di interrupt. Quando questo 
flag contiene 1 la CPU non risponde alle chiamate 
d'interrupt. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: interrupt. 


5.4.6 OPERAZIONI SULLO STACK 


PHA: PusH Accumulator STACK-(A) ; SP-SP-1 

Il contenuto dell'accumulatore viene memorizzato nel-* 
la cella di indirizzo $100+(SP); lo stack pointer vie¬ 
ne decrementato. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: nessuno. 


PHP: PusH Processor status STACK-(P); SP-SP-1 


Il contenuto del registro di stato viene memorizzato 
nella cella di indirizzo $100+(SP); lo stack pointer 
viene decrementato. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: nessuno. 




PLA: PuLl Accumulator 


A-(STACK ) ; SP-SP + 1 


Il contenuto della cella di indirizzo $100+(SP) viene 











caricato nell'accumulatore; lo stack pointer viene 
incrementato. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: nessuno. 


PLP: PuLl Processor status P-(STACK); SP-SP+1 

Il contenuto della cella di indirizzo $100+(SP) viene 
caricato nel registo di stato; lo stack pointer viene 
incrementato. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: tutti. 


5.5 LA GESTIONE DELL'INTERRUPT 

Abbiamo visto nel Paragrafo 4.3 che la CPU possiede un 
piedino da cui riceve le chiamate di INTERRUPT. Puoi 
immaginare un segnale di interrupt come la chiamata 
HARDWARE di un sottoprogramma; la subroutine cioè' non 
viene eseguita in risposta a una chiamata da program- 
ma, ma a un segnale logico che giunge a un piedino 
della CPU. Il TED e' l'unico dispositivo collegato al¬ 
la linea di richiesta delle interruzioni; ogni 
50-esimo di secondo la CPU riceve da TED una richie¬ 
sta di interruzione. Il SISTEMA OPERATIVO usa questo 
segnale per eseguire alcune operazioni a intervalli di 
tempo regolari, come aggiornare TI$, o memorizzare 
eventuali caratteri premuti sulla tastiera. 

Il programma che segue, in ASSEMBLER, ti mostra come 
la routine di interrupt, che può' essere disabi- 
litata, controlla lo stato della tastiera. Puoi intro- 
durlo in memoria usando il MONITOR. 

A 3000 CLI 
A 3001 LDA $C6 
A 3003 STA $0C00 
A 3006 CLC 
A 3007 BCC $3001 

Per avviarne l'esecuzione puoi scrivere: 

G 3000. 

Vedrai che il primo carattere in alto a sinistra nel¬ 
lo schermo cambia in funzione del tasto che premi sul¬ 
la tastiera; questo fatto parrebbe strano sapendo che 
la cella di indirizzo $C6 e' una normale cella di 
memoria in pagina 0, e non un registro di ingresso. Se 






arresti l'esecuzione del programma (l'unico modo e' il 
tasto di RESET, eventualmente STOP-RESET) e cambi 
l'istruzione in $3000, cioè' cambi CLC in SEI (masche-> 
ri le interruzioni), ti accorgi, avviando nuovamente 
il programma, che la tastiera non influisce piu' sul 
quadratino del video. Ciò' e' dovuto al fatto che la 
ROUTINE DI INTERRUPT non viene eseguita quando il FLAG 
di INTERRUPT e' al. 

Nel Paragrafo 7.6 riportiamo un sottoprogramma, in 
linguaggio macchina, che intercetta la routine di 
servizio dell'INTERRUPT del SISTEMA OPERATIVO. 

Quando la CPU risponde a una chiamata di lnterrupt 
salva automaticamente nello STACK i seguenti dati: 

.gli 8 bit piu' significativi del P.C. 

.gli 8 bit meno significativi del P.C. 

.il registro di STATO del processore 
e produce un salto indiretto a $FFFE. 

E’ cura del SISTEMA OPERATIVO effettuare tutte le 
operazioni che si devono eseguire in risposta a un 
lnterrupt. Per tornare dalla routine di gestione del-> 
1' interrupt esiste l'istruzione RTI, che e' diversa 
da RTS perche' recupera dallo STACK anche lo stato del 
processore, oltre a non incrementare il P.C. 


5.6 USO DEL COMANDO MONITOR DEL BASIC 

La funzione di questo comando BASIC e' quella di por¬ 
tare in ambiente MONITOR il calcolatore. Il MONITOR e' 
un programma in linguaggio macchina che permette di 
scrivere facilmente programmi in ASSEMBLER e in 
linguaggio macchina. Esso comprende un MONITOR di 
linguaggio macchina, un MINI--ASSEMBLATORE e un 
DI SASSEMBLATORE. I programmi in linguaggio macchina, 
scritti utilizzando il MONITOR, possono essere utiliz¬ 
zati autonomamente oppure come sottoprogrammi molto 
veloci per programmi BASIC. 

I comandi disponibili da MONITOR sono: 

. A ASSEMBLA: assembla un'istruzione all'indirizzo 
specificato. 

. C CONFRONTA: confronta due blocchi della memoria e 
segnala le differenze. 

. D DISASSEMBLA: disassembla il codice della 7501 a 
partire dall'indirizzo specificato. 

. F RIEMPI: riempie la memoria con il numero speci¬ 
ficato. 
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. G ESEGUI: avvia l’esecuzione del programma dall'in-* 
dirizzo specificato. 

. H CERCA: ricerca nella memoria tutte le posizioni 
di determinati valori di un gruppo di numeri. 

. L CARICA: carica un file dal nastro o dal disco. 

. M VISUALIZZA MEMORIA: visualizza i valori esade-< 
cimali delle locazioni di memoria 

R VISUALIZZA REGISTRI: visualizza i registri della 
7501, che tu puoi cambiare. 

. S SALVA: salva su nastro o su disco un blocco di 
memoria. 

. T TRASFERISCI: trasferisce un blocco di memoria in 
un'altra posizione. 

. V VERIFICA: confronta un blocco della memoria con 
un file su nastro o su disco. 

. X ESCI: esce dal MONITOR e ritorna al BASIC. 

. . PUNTO: assembla una riga del codice della 7501. 

. > (maggiore di): modifica la memoria. 

. ; (punto e virgola): modifica i registri della CPU. 

La locazione $7F8 controlla se il MONITOR vede la ROM 
o la RAM sopra $8000. Se questa locazione contiene 0, 
il MONITOR visualizza l’interprete BASIC e il KERNAL 
(routine del SISTEMA OPERATIVO) dopo un comando di 
dlsassemblaggio o di stampa, cioè' il contenuto della 
memoria ROM di indirizzo sopra $8000. Se questa loca¬ 
zione contiene $80, il MONITOR visualizza la RAM che 
sta sotto l'interprete BASIC e il KERNAL. Ciò' non e’ 
particolarmente utile nella macchina originale, ma 
diventa conveniente per lo sviluppo di programmi in 
linguaggio macchina per chi possiede l'espansione di 
memoria da 64K. Nota che la locazione $7F8 non ha 
alcuna influenza sul comando G. Il comando G avvia 
l'esecuzione nella mappa di memoria ROM senza tener 
conto dell'impostazione della locazione $7F8. 

Si accede al MONITOR scrivendo: 

MONITOR 

la risposta del sistema e' la visualizzazione dei 
registri della 7501 e il cursore lampeggiante. Il cur-> 
sore rappresenta il "prompt" che ricorda che il 
MONITOR e' in attesa dei comandi. 

I comandi, che passiamo a descrivere, fanno uso di 
parametri; tutti i parametri sono da intendere in for-> 
ma esadecimale, li scriviamo non preceduti dal dolla-» 
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ro, tra un parametro e l'altro si può' porre uno spa¬ 
zio oppure una virgola. 


A introduce una riga di codice ASSEMBLER. 

SINTASSI: A <indirizzo> <codice operativo mneraonico> 
<operando> 

<indirizzo>: locazione della memoria dove collocare il 
codice operativo. 

<codice operativo mnemonico: codice mnemonico 
dell'istruzione da assemblare, cosi' come e' descrit¬ 
to nel Paragrafo 5.4 e nell'APPENDICE A. 

<operando>: operando, quando richiesto, può' essere di 
una qualsiasi delle modalità' d'indirizzamento ammes¬ 
se. Per le modalità' di indirizzamento in pagina zero 
si deve indicare un numero esadecimale di 2 cifre; ad 
esempio: LDA $10. Per indirizzi di pagina-non zero 
vengono richiesti numeri esadecimali di 4 cifre; ad 
esempio: LDA $1 000 . Per 1 ' indirlzzaraento immediato si 
deve porre il segno # prima del numero a 2 cifre 
esadecimale che rappresenta l'operando; ad esempio: 
LDA #$FF. 

Alla fine della riga devi premere RETURN. Se nella 
riga risultano degli errori, viene visualizzato un 
punto di domanda ad indicare un errore e il cursore si 
sposta alla riga seguente. Per correggere eventuali 
errori puoi tornare su con il cursore e modificare la 
linea in modo da eliminare l'errore. 

Qui di seguito listiamo il programma LEGGIJOYASS, che 
puoi introdurre in memoria ricopiandolo con il 
MONITOR, oppure che si carica automaticamente in memo¬ 
ria usando il programma BASIC TEST LEGGEJOYASS. 


PC SR RC XR VR SP 
Qyyo 00 00 00 00 F8 


3000 

R2 

FB 


LDX 

#*FB 

3002 

“70 
i • 



SEI 


3003 

SE 

08 

FF 

STX 

T-FF0S 

3006 

RD 

08 

FF 

LDR 

*FF08 

3009 

SE 

08 

FF 

STX 

*FF08 

300C 

CD 

08 

FF 

CMP 

*FF88 

300F 

D0 

F2 


BUE 

*3003 

3011 

5S 



CLI 


3012 

:-q 

4F 


RHD 

#*4F 

3014 

C9 

10 


CMP 

#*10 

3016 

90 

02 


BCC 

*301R 

3018 

09 

SO 


ORR 

#*80 

30 IR 


SF 


RHD 

#*8F 

301C 

49 

SF 


EQR 

#* SF 







301E 

RR 



TRX 



301F 

R0 

FD 


LDV 

#*FO 


302 1 

78 



SEI 



3022 

se 

OS 

FF 

STV 

*FF08 


3025 

RD 

08 

FF 

LDR 

$FF08 


3028 

se 

08 

FF 

STV 

*FF08 


302B 

CD 

OS 

FF 

CMP 

*FF08 


302E 

DO 

F2 


BUE 

*3022 


303O 

58 



GLI 



3031 

2y 

8F 


RND 

#*8F 


3033 

49 

8F 


EOR 

#*8F 


3035 

Rs 



TRV 



3086 

60 



RTS 


Questa routine 

ti permette 

di 

leggere lo stato dei 


joystick, per usarli nei tuoi programmi in linguaggio 


macchina. Come puoi osservare il programma fa uso di 
un registro di I/O, in particolare il registro $FF08, 
il cui funzionamento e' stato descritto nel Paragrafo 
4.6. Puoi osservare nelle Figura 4.7a e 4.7b come so-» 
no collegati i due joystick. 

Le istruzioni da $3000 a $3011 caricano nell'ac¬ 
cumulatore lo stato dei 5 bit collegati al Joystick 1. 
Da $3012 a $301E diamo un formato piu' adatto al 
risultato e lo poniamo nel registro X. Da $301F a 
$3030 poniamo in A lo stato del Joystick 2 e da $3031 
a $3036 adattiamo il formato del risultato ponendolo 
nel registro X. Alla fine della routine il registro X 
contiene lo stato del joystick 1 , e Y quello del 
joystick 2. 


7 6 5 4 3 2 1 0 



xo ooxx XX 

♦ 

FUOCO 



L 


X = JOYSTICK 1 
Y = JOYSTICK 2 


ALTO 

BASSO 

SINISTRA 

DESTRA 


Figura 5.6 Formato dei risultati del sottoprogramma 
LEGGIJ 0YASS 
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Nella Figura 5.6 puoi vedere 11 significato del bit 
del registri X e Y in relazione alle posizioni dei 
Joystick. I bit a 1 indicano che il tasto e' premuto, 
o la leva e' spostata. Il programma TEST LEGGIJOYSTICK 
visualizza lo stato dei registri X e Y alla fine del-* 
la routine. Il codice del programma inoltre e’ conte¬ 
nuto nelle linee DATA, e viene posto in memoria nella 
linea 20. E’ assai importante non sbagliare neanche 
uno dei dati, poiché' in tal caso il sistema potrebbe 
arrestarsi, e non riprendere l'esecuzione neanche 
premendo RESET. Per questo la linea 25 arresta il 
programma se la somma dei dati contenuti nelle linee 
DATA differisce dal valore corretto: ricontrolla bene 
tutti i dati in caso di errore, e non eliminare la 
linea 25. 


0 REM TEST ROUTINE LETTURA JOYSTICK IN ASSEMBLER 
5 REM LA ROUTINE VA DA 3000H A 3036H COMPRESI 
10 P0KE56,48 > P0KE55,0 > CLR 

20 FORI=122SST012342=READA:Q=Q+A*POKEI,A°NEXT 
25 IFQO7420THENSTOP 
SO DiJ 

40 SVS12288=A=PEEK<2035 > ; B=PEEK<2036> 

50 GOSUB80■PRINT• 

60 R=B^ GOSUB80 = PRINT 
70 L OOP 

SO FORI =7TO0STEP— 1 = IFAAND2TITHEHPRINT" 1 " ; EL.SEPRINT"0" ; 
SO NEXT = RETURN 

100 DATA162,251,120,142,8,255,173,8,255,142,8 
105 DATA255,205,8,255,208,242,88,41,73,201 
110 DATA16,144,2,9,128,41,143,73,143,170,160 
115 DATA253,120,140,8,255,173,8,255,140,8,255 
120 DATA205,8,255,208 
130 DATA242,88,41,143,73,143,168,96 




C confronta due blocchi della memoria e 

segnala le differenze. 

SINTASSI: C <indirizzo inizio blocco 1> <indirizzo fi-* 
ne blocco 1> <indirizzo inizio blocco 2> 

Esempio: C 1000 1035 2010 

Confronta 1 contenuti delle celle che vanno da $1000 a 
$1035 compreso, con quelli delle celle che vanno da 
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$2010 a $2045 compreso. Se qualche byte differisce, ne 
viene stampato l'indirizzo. 


D disassembla il contenuto della cella specie 

ficata. 

SINTASSI: D <indirizzo iniziale? <indirizzo finale? 
«(indirizzo iniziale?: numero esadecimale di al mas¬ 
simo 4 cifre che indica l'indirizzo dell'istruzione da 
disassemblare. Se non fornito vengono disassemblati 20 
(decimale) byte a partire dall'ultimo disassemblato. 
<indirizzo finale?: 4 cifre esadecimali che indicano a 
quale indirizzo smettere di disassemblare. Se non for¬ 
nito vengono disassemblati 20 byte. 



F riempie una zona di memoria con il numero 

specificato. 


SINTASSI: F Cindirizzo iniziale? «(indirizzo finale? 
<dato? 

Esempio: F 0C00 ODOO 01 

riempie la zona di memoria da $0C00 a $0D00 con il 
numero $01. Tutti i parametri sono obbligatori. 


G avvia l'esecuzione di un programma conte¬ 

nuto in memoria. 

SINTASSI: G Cindirizzo? 

Il parametro Cindirizzo? può' essere omesso: in tal 
caso il programma parte dall'indirizzo indicato nel 
registro PC (vedi il comando R). 


H ricerca nella memoria le posizioni di 

determinati byte. 

SINTASSI: H Cind. iniz.? Cind. finale? Csequenza di 
byte? oppure Csequenza di caratteri? 

Cerca nelle locazioni specificate la sequenza di byte 
specificata. 
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Esempio: H 1000 2000 1 DE F 

cerca se tra $1000 e $2000 e' contenuta la sequenza: 
$01 $DE $0F. Se tale sequenza e' presente, viene starna 
pato l'indirizzo del primo byte della sequenza, e se 
e' presente piu' volte, sono stampati tutti gli indi-* 
rizzi dove inizia la sequenza specificata. 

Esempio: H 1000 4000 'COMMODORE 

cerca se tra le celle $1000 e $4000 se e' presente la 
sequenza di byte il cui codice ASCII compone la strini 
ga "COMMODORE". Nota che i caratteri sono preceduti da 
un apice (SHIFT->7). 


L carica un file da nastro o da disco. 

SINTASSI: L, <"nomefile"> «enumero unita’> 

Se non si specifica il numero di unita' si considera 
il registratore a cassetta. Il file viene caricato al 
suo indirizzo originale (nella stessa posizione in cui 
era quando e' stato salvato). 

Esemplo: L 

carica da nastro il primo programma che trova. 

Esempio: L "ROUTINE",8 

carica in memoria da disco il file chiamato ROUTINE. 


M visualizza i valori esadecimali delle loca-* 

zioni di memoria specificate. 

SINTASSI: M <ind. inlz.> <ind. finale> 

Gli operandi hanno lo stesso significato che nel 
comando D. I byte stampati possono essere modificati 
passandoci sopra col cursore, cambiandoli e premendo 
RETURN. 

Esempio: M 1000 

mostra il contenuto di 96 byte a partire dall* in-* 
dirizzo 1000. 


— —i -i 


R visualizza il valore dei registri della 

CPU. 

SINTASSI: R 

Naturalmente la CPU continua ad eseguire il programma 
MONITOR e i suoi registri cambiano continuamente. I 
registri che ti vengono mostrati (e di cui puoi 
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cambiare il contenuto passandoci sopra e battendo 
RETURN), sono quelli che saranno caricati al momento 
dell'avvio del programma, e che sono stati prelevati 
dalla CPU al momento del BRK. L'istruzione BRK porta 
al MONITOR, e vengono automaticamente mostrati i 
contenuti dei registri. 


S salva su nastro o disco un blocco di memo¬ 

ria. 

SINTASSI: S "NOMEPROGRAMMA" <unlta'> Cindirizzo 
iniziale> <indlrizzo finale> 

Tutti i parametri sono obbligatori, tranne il nome del 
file su cassetta. L'indirizzo finale deve essere uno 
piu' dell'ultimo byte da salvare: 

S "FILE" 08 1001 11F3 

Salva su disco il programma di nome FILE a partire 
dall'indirizzo $1001 fino all'indirizzo $11F2 compre¬ 
so. 


T trasferisce segmenti di memoria da una zo¬ 

na a un'altra. 

SINTASSI: T <Indir. iniz.> <indir. finale> <nuovo 
indirizzo 

I dati possono essere trasferiti ovunque nella RAM. 
Purtroppo un errore del sistema non permette di 
trasferire un segmento di memoria sopra se stesso. 
Esempio: T 1400 1600 TUOI 

non produce l'effetto di spostare di una posizione il 
segmento verso l'alto nella memoria, ma riempie tutta 
l'area $1401 $1601 con il contenuto della cella $140- 

0, distruggendo il vecchio contenuto. Ciò' e' dovuto 
probabilmente all'errore di eseguire il trasferimento 
del segmento sempre dal basso verso l'alto, mentre 
sarebbe corretto trasferire dal basso verso l'alto nel 
trasferimenti dall'alto verso il basso, e viceversa. 
Prova per esercizio a scrivere un programma che 
trasferisce blocchi di memoria, e vedrai meglio quali 
difficolta' incontra il programmatore. La versione del 
SISTEMA OPERATIVO a cui ci riferiamo e' la numero 4 
per la versione PAL (la cella $FF80 della ROM contie¬ 
ne $84). E' possibile che in versioni successive l'er¬ 
rore sia stato eliminato. 
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V verifica che un file contenga gli stessi 

dati contenuti in memoria. 

SINTASSI: V <"nomefi1e"> <unita'> 

Le regole sono le stesse di L (carica) ma il file non 
viene caricato in memoria. Se il file differisce dal 
contenuto della memoria viene stampato il messaggio 
"VERIFYING ERROR" , altrimenti non viene stampato nien-> 
te. 



X torna in ambiente BASIC. 


SINTASSI: X 


“1“'--— — —,---*5—-*!-)— 


Il MONITOR ti pone in grado di alterare celle di memo¬ 
ria e di compiere molte operazioni pericolose. E' 
importante non alterare il contenuto di celle di memo¬ 
ria di cui non conosci la funzione, soprattutto nella 
zona di lavoro dell'interprete BASIC e del 
SISTEMA OPERATIVO ($0000 -* $0800) e nell'I/0 ($FD00 -> 
$FFFF). Può' capitare assai facilmente che il sistema 
impazzisca a causa di operazioni scorrette sulla memo¬ 
ria. Talvolta il comando X non ti porta al BASIC: 
quando ciò' capita e' perche' il sistema e' in umo 
stato anomalo, da cui può' uscire solo con un RESET. 
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CAPITOLO 6 


LA GRAFICA 


6.1 INTRODUZIONE 

In questo capitolo ti mostriamo alcune caratte¬ 
ristiche avanzate del TED. Grazie alle tecniche espo¬ 
ste ti sara' possibile ottenere nuovi tipi di effetti 
grafici e di animazione. 


6.2 CARATTERI PROGRAMMABILI 

Sai già' come il COMMODORE 16 possa visualizzare i 
caratteri sul video, e sai anche che le immagini di 
questi caratteri (una serie di 8 byte per ogni carat- 
tere) sono custodite in ROM perche' non vengano perse 
ogni volta che spegni il calcolatore. Esiste pero* un 
modo per "dire" a TED di leggere le descrizioni dei 
caratteri in RAM e per indicargli l'indirizzo del pri¬ 
mo byte del primo carattere. Per far leggere TED dal¬ 
la RAM devi porre a 0 il bit 2 del registro 12 (indi¬ 
rizzo 65298 ($FF12)) con l'istruzione: 

POKE 65298, PEEK(65298) AND 251 

Per indicare l'indirizzo del primo byte del primo 
carattere, devi porre nei bit 7-2 del registro 13 
(indirizzo 65299 ($FF13)) la parte piu’ significativa 
dell'indirizzo stesso, con l'istruzione 

POKE 65299, (PEEK(65299) AND 3)+N 
dove N*256 - indirizzo desiderato 
e N e' un numero divisibile per *1 

Proviamo a programmare un carattere: per esempio il 
simbolo CBM che e' disegnato sul tasto in basso a 
sinistra della tastiera. Usando la stessa tecnica con 
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cui sono definiti normalmente i caratteri, costruiamo 
una matrice 8 per 8 e riempiamola usando 0 per 1 pun¬ 
ti spenti e 1 per quelli accesi: 


0 

0 

0 

1 

1 

0 

0 

G 



* 

* 



0 

0 

1 

1 

1 

0 

0 

0 


# 

* 

* 



0 

1 

1 

0 

0 

1 

1 

1 

# 

* 



* 

# # 

0 

1 

1 

0 

0 

1 

1 

0 

# 

# 



* 

# 

0 

1 

1 

0 

0 

1 

1 

1 

# 

* 



# 

« * 

0 

0 

1 

1 

1 

0 

0 

0 


# 

* 

# 



0 

0 

0 

1 

1 

0 

0 

0 



* 

* 



0 

0 

0 

0 

0 

0 

0 

0 







Ora 

dobbiamo 

fare un 

po * 

di 

conti: la prima 


(cioè’ il primo byte del carattere) contiene il nume¬ 
ro binario 00011000, cioè' 24 decimale. Facendo lo 
stesso conto per le altre righe otteniamo i numeri 
decimali 24, 56 , 103 , 102, 103, 56, 24 , 0. Questi 
numeri devono essere ora memorizzati nei primi 8 byte 
della nuova descrizione dei caratteri, programmando 
cosi' il carattere che ha D/CODE 0, cioè' la chioc¬ 
ciola (vedi Appendice D). Il programma GRAFI sposta la 
descrizione dei caratteri all'indirizzo 14336 ($3800), 
programma il carattere di D/CODE 0 con il simbolo CBM 
e il carattere di D/CODE 32 (lo spazio) con uno spa¬ 
zio : 


0 REM GRAFI 

IO COLORO.■ 1 ; COLORI ,7,5 = C0L0R4, 1 
20 P0KE65299,<PEEK<€5299>RND3>+56 
30 P0KES5298, PEEK <65298AND251 
40 FORI=0T07 

50 READA :POKE14336+I,R< POKE14592+1, O 
68 HEXTI 

70 F'R I HTCHRt <147 > CHRt < 142 > " Q " 

30 GETKEVA» 

90 POKE65299,<PEEK <65299 >RND3 >+208 
100 P0KE65298,PEEK <65298 >0R4 
11O 0ATA24,56,103,102,103,56,24,0 


Fai girare il programma: vedrai comparire sullo scher¬ 
mo, in alto a sinistra, il carattere che abbiamo 
programmato. Se premi un qualunque tasto (tranne STOP) 
il carattere tornerà' ad essere una chiocciola e il 
programma finirà'; se premi il tasto STOP il program¬ 
ma finisce senza riportare la descrizione dei carat¬ 
teri in ROM: quindi invece di vedere i caratteri nor¬ 
mali vedrai, premendo i tasti, dei caratteri casuali 
(tutti i caratteri di questo nuovo set che non abbia¬ 
mo ancora programmato). 
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COMMENTO A GRAFI : 

.10: schermo e bordo neri, caratteri azzurri. 

.20: descrizione dei caratteri in 14336 ($3800). 

.30: TED legge da RAM. 

.40/60: programma il carattere di D/CODE 0 con i da-- 
ti relativi al simbolo CBM, e il carattere di D/CODE 
32 (indirizzo di partenza 14336+32*8 - 14592) con una 
serie di zeri per ottenere uno spazio. 

.70: pulisce lo schermo, seleziona il set di carat¬ 
teri maiuscolo, e visualizza il carattere di D/CODE 0. 

.80: attende che sia premuto un tasto. 

.90: descrizione del caratteri in $D000. 

.100: TED legge da ROM. 

.110: dati relativi al simbolo CBM. 

ATTENZIONE a non fare errori quando TED legge da RAM: 
infatti quando il sistema da' una segnalazione di 
errore mette automaticamente TED in condizioni di leg¬ 
gere la ROM e, se l'indirizzo della descrizione dei 
caratteri era stato cambiato, TED si troverà' a leg¬ 
gere dei dati da indirizzi di ROM non esistenti; il 
risultato sara’ ovviamente spiacevole. 

6.3 COPIA DEI CARATTERI DA ROM 

Non sempre, quando definisci un nuovo set di carat¬ 
teri, vuoi ottenere un risultato completamente diver¬ 
so dal contenuto della ROM: potrebbe capitarti di 
voler avere a disposizione tutte le lettere del set 
del COMMODORE 16 e cambiare solo 1 caratteri grafici, 
o cambiare le lettere e conservare le cifre e i segni 
di punteggiatura. In questo caso dovrai copiare su RAM 
la parte del contenuto della ROM che ti interessa e 
poi definire, come hai già' visto, gli altri carat¬ 
teri. Purtroppo il BASIC del COMMODORE 16 quando leg¬ 
ge un dato dalla memoria lo legge sempre dalla RAM. 
L'unico modo di leggere i dati dalla ROM dei carat¬ 
teri e' quello di usare una semplice routine in 
linguaggio macchina. Il programma GRAF2 ha il compito 
di caricare in memoria (dall'indirizzo 8192 ($2000)) 

il programma GRAF3 e di farlo eseguire: 


8 REM GRRF2 

10 COLORO,1 : COLOR1,7.5 = C0L0R4,1 
20 F0KE56,56 = P0KE55,0 = CLR = PR I NTCHR#< 1 42 > 
30 P0KE65299,<PEEK<65299>RND3 >+56 
40 P0KE65298,PEEK < 65298 > RHD25 1 
50 PORI=0TO31 :REROR = P0KE8192+1 ,fl NEXT 
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68 SVS8192 NEW 

1088 DRTft 169,208, 133, 4, 169,56 ..133, 6 
1810 DRTft160,0,132,3,132,5.177,3 
1©20 DRTft145,5,200,208,249,230,4,230 
1030 DRTR6,165,4,201,216,208,239,96 


MONITOR 

PC SR RC XR VR SP 
0000 00 00 00 00 F8 


2000 

09 

D0 

LDO 

#$D© 

2002 

85 

04 

STO 

$04 

2004 

09 

88: 

LDO 

#$38 

2006 

85 

06 

STO 

$06 

2008 

00 

00 

LDY 

#$00 

2000 

84 

03 

STV 

$03 

200C 

84 

05 

STV 

$05 

200E 

B1 

03 

LDO 

< $83 > 

20 1 0 

91 

05 

STO 

<$05> 

2012 

C8 


INV 


2013 

D0 

F9 

BNE 

$200E 

2015 

E 6 

04 

I HO 

$04 

2817 

E6 

06 

INC 

$06 

2019 

05 

04 

LDO 

$04 

201B 

C9 

D8 

CMP 

#$D3 

201D 

D0 

EF 

BNE 

$200E 

201F 

60 


RTS 



Potrebbe sembrare che il programma GRAF2 non produca 
alcun effetto; In realtà* 1 dati relativi ai carata 
teri si trovano ora in RAM. Prova infatti a scrivere 
una chiocciola sullo schermo e a dare quindi le istruì 
zioni 

FOR 1-0 TO 7: POKE 14336+1,0: NEXT I. 

Appena premi RETURN la chiocciola sparisce perche* hai 
cancellato in RAM i dati relativi alla chiocciola del 
set maiuscolo; se selezioni il set minuscolo le chioc¬ 
ciole riappariranno la' dove erano sparite. 

COMMENTO A GRAF2 

.10: schermo e bordo neri, caratteri azzurri. 

.20; aggiorna i puntatori di fine memoria a 14336 
($3800) in modo che le variabili non cancellino i 
caratteri programmati. Seleziona il set di caratteri 
maiuscoli. 

•30: descrizione dei caratteri in 14336 ($3800). 

-.40: TED legge da RAM. 

.50; pone il programma GRAF3 in memoria 
.60: esegue la routine GRAF3 e cancella il program¬ 
ma . 

.1000/1030: contengono i dati relativi a GRAF3. 


230 




COMMENTO A GRAF3 

(con riferimento agli indirizzi esadecimali) 

.2000/2002 pone 208 ($D0) nel byte piu' signifi¬ 

cativo del puntatore 03 - 0 H. 

.2004/2006 pone 56 ($38) nel byte piu' significativo 
del puntatore 05-06. 

•2008/200C pone 0 ($00) nei byte meno significativi 
dei due puntatori: 03-04 punta cosi' all'inizio della 
ROM dei caratteri e 05-06 punta all'inizio dell'area 
RAM in cui vogliamo trasferire i caratteri. 

.200E/2013 trasferisce una pagina ($100 corrisponde a 
256 byte) dal byte puntato da 03-04 al byte puntato da 
05-06. 

.2015/2017 incrementa i piu' significativi dei due 
puntatori in modo che puntino alla prossima pagina. 

.2019/201D se non ha ancora copiato 8 pagine (da 
$D000 a $D7FF) continua. 

.201F torna al BASIC. 

Il prossimo programma, GRAF4, ha il compito di trasfe¬ 
rire in RAM i caratteri e sostituire le lettere del 
set MA1USC0L0/GRAFIC0 con delle lettere gotiche. Esso 
usa ancora la routine GRAF3. 


0 REM GRRF4 

10 COLORO.2,7=COLOR1,1=C0L0R4,7,6 
20 F'R I MTCHR$ < 142 > 

30 P0KE65299,<PEEK<65299 >AMD3>+56 
40 P0KE65298,PEEK<65298 >AND251 
50 F0RI=0T031 > RERDfl = P0KE8192+ I, R •• NEXT 
60 SVS8192 

70 FORI=0T02i5 = REODA = POKE14336+1,R ; NEXT 

1 0O0 T DRT R ì 69,203, 133,4,169,56,133,6 
1010 DRTR160,0,132,3,132,5,177,3 
1020 DRTR145,5,200,208,249,230,4,230 
1O30 DRTR6,165,4,201,216,208,239,96 
104O DRTR60,102,110,11O,96,98,60,0 
1O50 DRTR48,72,20,34,62,34,65,0 
1060 DRTR92,34,66,124,66,34,92,0 
1070 DRTR28,34,84,80,30,34,28,0 
1080 DRTR88,100,66,66,66,100,88,0 
1090 DRTA92,34,64,112,64,34,92,O 
11OD DRTR92,34,32,120,32,32,64,0 
1110 DRTR28,34,64,94,98,62,2,6 
1120 DRTA28,34,32,60,34,34,36,0 
1130 DRTR2,60,72,8,1O,60,64,8 
1140 DRTR1,2,2,2,34,68,56,0 
1150 DRTR66,36,40,112,40,36,66,0 
1160 DRTR24,36,32,32,32,33,94,0 
1170 DRTR84,42,42,106,42,42,64,0 
1180 DRTR66,50,42,106,42,42,68,0 
1190 DRTR28,34,81,81,81,34,28,0 
120O DRTR92,34,34,124,32,32,64,0 
1210 DRTA56,84,34,2,12,26,124,8 
1220 DRTR92,34,34,120,36,34,66,O 
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12 J0 DOT02 , 6@ .■ 64 , 60 , 2 .• €0 .* SA , 0 
1240 DOTO1,126,4S,80,80,33,30,0 
1250 DflTR33,82,18,18,18,18, 12,0 
1260 D0T076,178,34,34,34,20,3,0 
1270 DOTO128,92,82,82,82,84,40,0 
1280 D0T034,84,12,3,24,37, SS ,0 
1290 D0TH66,164,36,36,26,66,60,0 
1300 D0T062,2,4,8,16,32,62, 0 


COMMENTO A GRAF4 

.10 ripristina le condizioni iniziali dello scher¬ 
mo . 

.20 seleziona il set MAIUSCOLO/GRAFICO. 

.30/40 indica a TED la nuova descrizione dei carat¬ 
teri . 

.50 carica in memoria GRAF3. 

.60 esegue GRAF3. 

.70 pone nella memoria dei caratteri i dati riguar¬ 
danti 1 caratteri gotici. 

.80 inizializza il BASIC. 

.1000/1030 dati relativi a GRAF3. 

.1040/1300 dati relativi ai nuovi caratteri. 


Dopo aver fatto girare questo programma il COMMODORE 
16 e' pronto a funzionare ma può' rovinare la descri¬ 
zione dei caratteri con le variabili stringa. Per evi¬ 
tare ciò' puoi dare le istruzioni 
P0KE 56,56: P0KE 55,0: CLR 

Queste istruzioni abbassano la fine della memoria a 
14336 ($3800), dove inizia la descrizione dei carat¬ 

teri. 

Ricorda sempre che un errore in queste condizioni por¬ 
ta TED a leggere da una ROM Inesistente. Se ti doves¬ 
se capitare di avere una segnalazione di errore e non 
vuoi resettare puoi dare l’istruzione 
P0KE 65298,PEEK(65298)AND251 

anche se non vedi i caratteri che stai scrivendo; es¬ 
sa resetta il bit di posizione 2 al valore 0. 


6.4 PROGRAMMI PER LA CREAZIONE DEI CARATTERI 

Programmare nuovi caratteri con il COMMODORE 16 e* 
facile ma non molto immediato: e' difficile cioè' 
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"vedere" che 24, 56 , 103, 102, 103, 56, 24 , 0 rappre- 
sentano un simbolo grafico. Sarebbe molto piu’ comodo 
se si potesse disegnare direttamente il carattere sul¬ 
lo schermo e farlo memorizzare senza tanti calcoli, 
PEEK e P0KE-. Il programma GRAF5 fa precisamente que¬ 
sto. E' commentato come al solito e puoi quindi elimi¬ 
nare facilmente certe parti che non ti interessano o 
aggiungerne altre per renderlo piu' adatto ai tuoi 
scopi. 


Li REM GRAF5 

1O COLOR0•1'COLOR1,7,5'C0L0R4,1 
15 F'R INTCHR* < i 42 >CHRi < S !:■ 

20 POKE56,56 = P0KE55,0 = CLR 

30 US$=CHR$< 147::' + " PREMI FI PER USCIRE" 

40 KEV1,CHR$<133> 

100 PRINTCHR4<147> 

1 10 PR I NT " OPZIONI = " = PR INT ; F'RINT 
120 PRIHT"1 CREO CARATTERE"=PRIHT 
130 PRIHT"2 MEMORIZZA CARATTERE"=PRIHT 
140 FRINT"3 CORREGGE CARATTERE"=PRIHT 
150 PR I NT "4 MOSTRA CARATTERI " : F'RI NT 
160 PRIHT"5 SALVA SET DI CARATTERI"=PRIHT 
170 PRIHT"6 CARICA SET DI CARATTERI" PRIHT 
ISO F'RI NT "7 FINE” 

190 GETA$ : IFVAL< AT > =OTHEH19G 
195 I=VAL<R$> 

200 OH IGOSIJB1000,2000,3000,4000,5000, 6000,7000 
210 GuT0100 
1000 PRINTUS* 

1010 F0RI=9T016:CHAR1,16,I,"++++++++"■HEXT 
1060 PC=2424=XC=0’VC=0 
1070 POKEPC,PEEK< PC > + 128 
1 OSO GETKEVA* 

1 090 A=ASC < A* > : SF'=8 

1100 IF A=2 9 AH D X C C 7 T H E N XC=X C+1 ' F'C=PC+1 = SP= 1 

1110 IFA=157AHDXC>OTHEHXC=XC-1 :PC=PC-1 =SP=-1 

1120 IFA=17AHDVC<7THEHYC=VC+1=PC=PC+40 = SP=40 

1 13© I FA= 145AHDVC:>OTHEHVC=VC-1 = PC=PC-40 = SP=-40 

1140 IFA=32THEHP0KEPC+1024,81 

1150 IFA=20THENPOKEPC+1024,43 

1160 POKEPC-SP,PEEK <PC-SP>-128 

1 1 70 IFAO133THEN1070 

ÌISO FORI=0TO7 

1130 BV<I>=0 

1200 FORJ=0TO7 

1210 BV < I =BV C I > -2 tJ* < PEEK < 3448+7-J+40# I > =81 ) 

1220 HEXTJ HEXTI 

1230 RETURN 

,'000 F'R INTCHR»< 147> 

30 1 0 PRINT"1 NORMALE"=PRINT 

. :020 F'R I NT " 2 REVERSATO" : PRI NT 

2030 PRINT"3 SIMMETRIA VERTICALE" : PRIHT 

2040 PR:INT"4 SIMMETRIA ORIZZONTALE" PRIHT 

3050 PRIHT"5 RUOTATO DI 90 GRADI "; 

. '055 F'R INT" IN SENSO ORAR IO" > PR I NT 
3060 GETKEYA# 
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H=VHL'..R$> : IFR=0ORfl>5THEN2060 
INPUT"CRRRTTERE NUMERO "JNCK 
IFNC?i>255ORNK<0THEN2080 
ONAGOSUB2200, 2300,2400,2500,2606 
FORI =0T07 : POKE14336+8#NCX+1, BV < I > = NEXT 
RETURN 
RETURN 

F0RI=GT07 B't'c: I >=255-BV< I > = NEXT 
RETURN 
FORI=0TO7 
FOR J=0TO3 

BD= < BV < I RND2 tJ > /2 tJ * BV < I >=BV < I > -2 tJ*BD 
BS= CBV <I>RND21<7-J>>/21<7-J) 

BV*:: I > =BV<: I >-2 r e7- J>*BS 

BV<I>=BV<I>+2TJ#BS■BV<I>=BV<I>+2t<7-J>*BP 
NEXTJ,I 
RETURN 
FORI=0TO3 
T=BVCI > 

BVCI>=BV<7-I> 

BVe 7-1> =T 
NEXT I 
RETURN 
F0RI=6T07 

B2<I>=BV<I.> : BV< I > =0 
NEXT I 
FORI=0TO7 
FOR..T=0TO7 

EX= < B2 < I ;* RN02 Te 7-J > >/2Te 7-J > 

bv e j :> =bv e j >or e 2 r e ex*i )*-eEXoe> :* 

NEXTj ,1 
PFTURH 

PRÌNTCHR* e 147 > 

INPUT “CRRRTTERE DR CORREGGERE " NCX 
I FNC:O2550RNX C0THEN3010 
PRINTUS* 

FOR1 = 1TOS ; PRINTCHR*<17>; * NEXTI 
FORI=0TO7 

FOR J= ITO 16 : PRINTCHR*<32.'* 1 * NEXT 
FORJ=0TO7 

IFPEEKe 14336+8*NCX+1 ;* RND2 T<7-J>THENSI =-1 
IFSITHENPRINTCHR$e209> ; * SI=0 * GOTO31O0 
PR INTCHR$ e 43 > 

NEXTJ * PRINT ; NEXTI 
GOTO1060 

PRINTCHR#e 147>"PREMI FI PER TORNARE" 
PRINTCHR$e17>"PREMI I TASTI CORRISPONDENTI" 
PRINT"RI CARATTERI CHE VUOI VEDERE" 

FORI=1TO2000:NEXTI 
PRINTCHR*e 147;* 

P0KE65298,PEEKe 65298 > RND251 
P0KE65299,e PEEK e65299 >RND3)+56 
GETKEVfl* 

IFfi$OCHR* e 133>THENPRINTR*; * GOTO4040 
POKE65298,PEEK e 65298 > 0R4 
POKE -,5299, e PEEK e 65299 > AND3 > +268 
COLORI,7,5 * RETURN 
PRINTc HRie 147} 

PRINT"LISCO 0 NASTRO ?" 

GETDVf: x FDV$0"N"AHDDVtO"D"THEN5015 
PRI NT 

5030 INPUT"SET NUMERO ";NSK 
5040 FRINT 
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5050 PRI NT "FI HO A CHE CARATTERE VUOI SALVARE " 

5055 INPUTNCX 

5060 IFHC::>255THEN5040 

5070 IFDV$="H"THEH55O0 

5080 OPEN1,8,2,"@ SET #"+STR$ <NSK> + " , S, U " 

5082 PRINT = PRINTDS* 

5085 IFDSTHEHFORI = 1TO2OO0 >NEXT‘CLOSE1=RETURN 
5090 PRINT# 1, CHR*CNC5i> ; FORI =OTO<NCX+1 >*8-1 
5100 PRI NT# 1, CHR*<PEEK < 14336+1 > ; 

5110 NEXTI 
5120 CLOSE1 
5130 RETURN 

5500 OPEN 1, 1, 1, "SET # " +STR$ CNSX > 

55IO PRINT#1,CHRTCNCX>, :FORI=OTO<NCX+1>*8-1 
5520 PRINT# 1, CHR*C PEEK < 14336+1 > > , 

5530 NEXTI 

5540 CLOSE1 

5550 RETURN 

60O0 PRINTCHR# <147 > 

6010 PRINT"DISCO 0 NASTRO ?" 

6015 GETDV*: IFDV*<>"N"ANDOV*<>"D"THEN6015 
6020 PRIHT 

6030 INPUT"SET NUMERO "; NSW 
6070 IFDV*="N"THEN6500 

6080 OPEN1,8,2,"SET #"+STR*<NSX>+",S,R" 

6082 PR I NT ^ PR INTDST- 

6085 IFDSTHENFORI=1TO2000:NEXT:CLOSE1=RETURN 
6090 GET# 1 , A* = NCX=ASC < A*> = FOR I =0TO (NCJÌ+1 ■'*8-1 
6100 GET#1,A$ = POKE14336+1,ASC < A*+CHR*<0 >> 

6110 NEXTI 
6120 CLOSE1 
6130 RETURN 

6500 OPEN1,1,0,"SET #"+STR4C NSX > 

6510 GET#1,A*:NCX=ASCCA*>:FORI=0TO(NCX+1>X*8-1 
6520 GET# 1, A* ■ POKE 14336+1 , ASC < A$+CHR$ <0 > > 

6530 NEXTI 
6540 CLOSE1 
6550 RETURN 

7000 PRINTCHR* '• 17 > "SI CURO ?" 

7010 GETKEVAT 

7020 IFAT="S"THENSVS32768 

7030 RETURN 


Il programma GRAF5 può' essere diviso in 14 sezioni 
ben distinte: 

-1: 10-40: inizializza il calcolatore. 

-2: 100-210: mostra il menu' e 3alta all'opzione 
richiesta. 

-3: 1000-1230: ti permette di disegnare un nuovo 
carattere e riempie un vettore con i dati relativi a± 
carattere disegnato. 

-4: 2000-2120: mostra il menu' di memorizzazione dei 
caratteri, salta alla routine per il tipo di opera¬ 
zione richiesta sul vettore e memorizza il carat¬ 
tere . 

-5: 2200: lascia il vettore invariato: e' stata mes¬ 
sa per rispondere alla chiamata della linea 2100. 
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-6: 2300-2310: pone nel vettore il "negativo" del 
carattere contenuto prima. 

-7: 2400-2460: pone nel vettore il carattere che go¬ 
de di simmetria verticale rispetto a quello contenuto 
prima. 

-8: 2500-2550: pone nel vettore il carattere che go¬ 
de di simmetria orizzontale rispetto a quello conte-» 
nuto prima. 

-9: 2600-2670: pone nel vettore un carattere ruo¬ 
tato di 90 gradi in senso orario rispetto a quello 
contenuto prima. Chiamando 2 volte questa routine 
otterrai una rotazione di 180 gradi. Chiamandola 3 
volte otterrai una rotazione di 90 gradi in senso 
antiorario. 

-10: 3000 - 3110 : riempie il vettore con 1 dati rela¬ 
tivi al carattere che vuoi correggere e, saltando al¬ 
la linea 1060, ti permette la correzione. 

-11: 4000-4080: ti permette di vedere i caratteri 
che hai creato. 

-12: 5000-5550: salva su disco o su nastro i carat¬ 
teri che hai programmato. 

-1 3: 6000-6550: carica da disco o da nastro un set 
salvato precedentemente. 

-14: 7000-7030: chiude il programma. 


COMMENTO A GRAF5 SEZIONE PER SEZIONE 


SEZIONE 1 

.10: schermo e sfondo neri, caratteri azzurri. 

.15: set maiuscolo, disabilita la funzione di 
SHIFT-CBM. 

.20: fine della memoria a 14336 ($3800). 

.30: inizializza la costante US$. 

.40: assegna a FI il CHR$(133) per poterlo usare con 
l'istruzione GETKEY. Il tasto FI serve per uscire 
dalle fasi del programma e tornare al menu' princi¬ 
pale . 


SEZIONE 2 

.100/180: mostra le opzioni. 

.190: accetta un tasto tra t e 9. 

.195: pone nella variabile I il valore del tasto 
premuto. 
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.200: se I<7 salta alla routine richiesta. 
.210: torna a mostrare le opzioni. 


SEZIONE 3: 

E' la sezione piu' complicata del programma: per 
comprenderne bene il funzionamento possiamo dividerla 
in 3 sottosezioni. 

•A) . 1000/1010: disegna una griglia 8X8 su cui crea¬ 

re il carattere. 

.B) . 1060/1170: permette di disegnare il carat¬ 

tere . 

.C . 1180-1230: riempie il vettore BY(7) con i dati 

relativi al carattere disegnato sulla griglia. 

Torniamo al commento linea per linea: 

.1000: pulisce lo schermo e scrive in alto PREMI FI 
PER USCIRE. 

.1010: disegna la griglia. 

.1060: pone nella variabile PC (posizione cursore) 
l'indirizzo del byte della mappa degli attributi 
corrispondente al " + " della griglia in alto a sini¬ 
stra. Azzera le variabili XC e YC (coordinate X e Y 
del cursore). 

.1070: pone a 1 il bit 7 del byte della mappa degli 
attributi corrispondente al cursore. In questo modo il 
carattere che corrisponde al cursore, lampeggia (vedi 
Paragrafo 4.8). 

.1080: attende la pressione di un tasto. 

.1090: A « codice ASCII ricevuto da tastiera e SP-0 
(SP-spostamento che verrà' effettuato). 

.1100: se il carattere ricevuto e' "CURSORE A DESTRA" 
e il cursore non e' all'estrema destra della griglia 
(XC-7) allora incrementa XC e PC e pone SP-1. 

.1110: se il carattere ricevuto e' "CURSORE A 
SINISTRA" e il cursore non e' all'estrema sinistra 
della griglia (XC-0) allora decrementa XC e PC e pone 
SP-->1 . 

.1120: se il carattere ricevuto e' "CURSORE IN BAS¬ 
SO" e il cursore non e' sull'ultima linea della gri^< 
glia (YC-7) allora incrementa YC, somma 40 a PC e po¬ 
ne SP-40 (40 e' il numero di caratteri contenuti in 

una linea dello schermo). 

.1130: se il carattere ricevuto e' "CURSORE IN ALTO" 
e il cursore non e’ sulla prima linea della griglia 
(YC-0) allora decrementa YC, sottrae 40 a PC e pone 
SP““>40. 
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.111(0: se il carattere ricevuto da tastiera e' SPAZIO 
pone nella posizione della mappa video corrispondente 
alla posizione del cursore una pallina per indicare 
che quel punto e' "acceso” ( 102H e' la differenza tra 
l'indirizzi della mappa degli attributi e i corrispon¬ 
denti indirizzi della mappa video). 

.1150: se il carattere ricevuto da tastiera e' DELETE 
pone nella posizione della mappa video corrispondente 
alla posizione del cursore un " + " per indicare che 
quel punto e' "spento". 

.1160: pone a 0 il bit 7 del byte della mappa degli 
attributi corrispondente alla vecchia posizione del 
cursore (PC-<SP). 

.1170: se non e' stato premuto FI torna alla linea 
1070 dove fa lampeggiare la posizione corrente del 
cursore. 

.1180: per ogni riga della griglia esegue fino a 
1 220 . 

.1190: pone a 0 il corrispondente elemento del vetto-» 
re. 

.1200: per ogni elemento di una riga esegue fino a 
1 220 

.1210: somma alla variabile corrispondente alla riga 
interessata 2 elevato alla posizione dell'elemento di 
riga considerato (partendo da destra), se in tale 
posizione vi e' una pallina; altrimenti somma 0. 

.1220: chiude il ciclo degli elementi e quello delle 
righe. A questo punto nel vettore BY sono contenuti 
gli 8 numeri necessari per programmare il carattere 
disegnato sulla griglia. 

.1230: fine della routine. 


SEZIONE 4 

.2000/2055: mostra le opzioni relative alla memoriz-> 
zazione del caratteri. 

.2060/2070: accetta dalla tastiera un numero tra 1 e 
5 e lo pone nella variabile A. 

.2080/2090: accetta un numero tra 0 e 255 e lo pone 
nella variabile NCjt (il carattere che si vuole 
programmare ) . 

.2100: salta alla routine di modifica del vettore 
richiesta. 

.2110: memorizza il carattere ponendo in 8 byte di 
memoria a partire da 14336+8*NCJ il contenuto del 
vettore. 

.2120: torna dalla routine. 
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SEZIONE 5 

.2200: e' stata messa per rispondere alla chiamata 
della linea 2100. 


SEZIONE 6 

.2300: pone in ogni elemento del vettore la diffe¬ 
renza tra 255 e il valore contenuto prima. Questa 
operazione compiuta su numeri minori di 256 (come nel 
nostro caso), nega gli 8 bit del numero. 

.2310: torna dalla routine. 


SEZIONE 7 

.2400: per ogni elemento del vettore esegue fino a 
2450 . 

2410: per J da 0 a 3 esegue fino a 2450. 

.2420: pone il valore del bit j-esimo dell'elemento 
considerato del vettore nella variabile BD (bit di 
destra) e lo azzera. 

.2430/2435: pone il valore del bit (7-j )--esimo 
dell’elemento considerato del vettore nella variabile 
BS (bit di sinistra) e lo azzera. 

. 2440: pone il bit di sinistra al posto del bit di 
destra e viceversa. 

.2450: chiude i due cicli. 

.2460: torna dalla routine. 


SEZIONE 8 

.2500: per i primi 4 elementi del vettore esegue fi¬ 
no a 2540. 

.2510: pone nella variabile T (temporanea) il valore 
dell'elemento considerato. 

.2520: pone nell'elemento considerato il valore 
dell'elemento simmetrico del vettore. 

.2530: pone nell'elemento simmetrico il valore di T. 
.2540: chiude il ciclo. 

.2550: torna dalla routine. 

SEZIONE 9 

.2600/2620: trasferisce il vettore BY nel vettore B2 
e lo azzera. 

.2630: per ogni bit degli elementi del vettore ese¬ 
gue fino a 2660 (indice I). 
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.2640: per ogni elemento del vettore esegue fino a 
2660 (indice J). 

.2645/2650: pone il bit considerato dell'elemento in 
esame uguale al bit J->esimo dell'elemento simmetrico 
all ' i->es imo . 

.2660: chiude i due cicli. 

.2670: torna dalla routine. 

SEZIONE 10 

.3000/3020: chiede il numero (D/CODE) del carattere 
da correggere. Accetta un numero tra 0 e 255 e lo po¬ 
ne nella variabile NCj. 

•3030: pulisce lo schermo e scrive centrato in alto 
PREMI FI PER USCIRE. 

.3040: sposta il cursore piu' in basso di 4 linee. 

•3050: per 8 volte esegue fino a 3100. 

.3060: sposta il cursore a destra di 16 posizioni. 

.3070/3100: scrive un "+" se il bit considerato 
contiene 0, una pallina altrimenti. 

. 3110 : salta alla routine di programmazione del 
carattere. 

SEZIONE 11 

.4000/4006: fornisce le istruzioni all'utente. 

.4010: attende circa 10 secondi. 

.4020: cancella lo schermo. 

.4030/4035: descrizione dei caratteri in RAM a par¬ 
tire da 14336 ($3800). 

.4040: attende la pressione di un tasto. 

.4050: se il tasto premuto non e' FI, scrive il 
carattere (che può' essere anche un carattere di 
controllo del cursore o del colore) e torna ad atten-' 
dere il prossimo. 

.4060/4080: se e' stato premuto FI riassume la ROM 
come descrizione dei caratteri, passa a scritte blu' e 
esce dalla routine. 

SEZIONE 12 

.5000: pulisce lo schermo. 

.5010/5015: pone in DV$ la periferica scelta. 

.5020/5030: pone in NSJ il numero distintivo del set 
di caratteri. 

.5040/5060: pone in NC* (D/CODE dell'ultimo carat¬ 
tere che si vuole salvare) un numero tra 0 e 255. 

.5070: se la periferica scelta e' il nastro salta a 
5500. 

.5080/5085: apre il file su disco e torna se si veri¬ 
fica un errore. 




.5090/5110: scrive su disco il numero di caratteri da 
salvare seguito dai dati relativi ai caratteri. 

.5120/5130: chiude il file e torna dalla routine. 

.5500: apre il file su nastro. 

.5510/5530: scrive su nastro il numero di caratteri 
da salvare seguito dai dati relativi ai caratteri. 

.5540/5550: chiude il file e torna dalla routine. 

SEZIONE 13 

.6000: pulisce lo schermo. 

.6010/6015: pone in DV$ la periferica scelta. 

.6020/6030: pone in NS$ il numero distintivo del set 
di caratteri. 

.6070: se la periferica scelta e' il nastro salta a 
6500. 

.6080/6085: apre il file su disco e torna se si veri-* 
fica un errore. 

.6090/6110: legge da disco il numero di caratteri da 
caricare e quindi carica i dati relativi ai carat¬ 
teri. 

.6120/6130: chiude il file e torna dalla routine. 

.6500: apre il file su nastro. 

.6510/6530: legge da nastro il numero di caratteri da 
caricare e quindi carica i dati relativi ai carat-* 
ter i . 

.6540/6550: chiude il file e torna dalla routine. 


SEZIONE 14 

.7000: porta il cursore piu' giu' di una linea e ti 
chiede se sei sicuro di voler abbandonare il program¬ 
ma . 

.7010: attende la pressione di un tasto. 

.7020: se la risposta e' "S" allora salta alla rou¬ 
tine di inizializzazione del BASIC. 

.7030: altrimenti torna dalla routine. 

Con questo programma e' quindi possibile creare in 
memoria nuovi caratteri e salvarli su disco o casset¬ 
ta. Se, in un programma che usa caratteri definiti, 
vuoi evitare di caricare i dati relativi ai caratteri 
da nastro, ma preferisci che siano già' nel programma 
sotto forma di linee DATA, puoi usare il programma 
GRAF6, che converte i dati contenuti dal byte 1 4336 


($3800) in poi in linee DATA. 



10 REM GRRF6 

£0 INPUT "FIMO R CHE CARATTERE " CX 
50 F'RIHTCHR*0 47> ; 

60 N=1000+1*10 :GOSUB160 :PRINTN*"DATA", 

70 FGRJ=0TO7 

80 N=PEEK < 14336+1 *S+J > = GOSUB 160 PRI NT NT " , " ; 

90 NEXT 

100 PRINTCHR*<20> 

11 © pr i nt" i=" i+1 " : cx=" CX ; 

120 IFICCXTHENPRI NT " : GOTO50" GOTO 140 
130 PRINT"=GOTO170" 

140 P0KE239,3=POKE1319,19=POKE1320,13 
150 POKE1321,13 END 

160 N*=STR* < N :■ = N*=R IGHT* < H*, LEN < N* >-l> = RETURN 
170 P0KE239,3 = POKE 1319,19 = POKE 132003 = POKE 1321,13 = 
K=K+10 = PRINTCHR*<147 >K = PRINT"K="K" = 

IFK<170THEN170" 


GRAF6 può' essere usato anche per convertire in linee 
DATA programmi in linguaggio macchina o altri tipi di 
dati presenti in memoria. Il programma si basa sul 
fatto che il COMMODORE 16, appena esce da un program¬ 
ma, scrive i caratteri che si trovano nel buffer del¬ 
la tastiera (da 1319 a 1328 ($0527/$0530)) e si 
comporta esattamente come se fossero stati premuti 
dall'utente. 

COMMENTO A GRAF6 

.20: chiede fino a che carattere vuoi convertire in 
linee DATA. Il programma convertirà' 8X(C$+1) byte a 
partire dall'indirizzo 14336 ($3800). 

.50: pulisce lo schermo. 

.60: il numero N che deve essere assegnato alla pros¬ 
sima linea DATA e' 1000+1*10, trasforma il numero N in 
una stringa (appoggiandosi ad una routine in 160), 
scrive una stringa che contiene N e la parola BASIC 
DATA. Puoi scegliere da quale linea partire, sosti¬ 
tuendo a 1000 il numero di linea che preferisci, e il 
passo con cui incrementare il numero di linea, sosti¬ 
tuendo a 10 il passo desiderato. 

.70/90: per gii 8 byte di ogni carattere pone in N il 
contenuto del byte interessato, lo trasforma in una 
stringa utilizzando la stessa routine di prima, seri-- 
ve la stringa e una virgola. 

.100: cancella l'ultima virgola. 

.110: scrive sul video le istruzioni BASIC che 
incrementeranno l'indice I e riporranno in memoria il 
valore di Cf (le variabili vengono infatti perse ogni 
volta che si introduce una nuova linea di program¬ 
ma ) . 



.120: se il carattere trattato non e' l'ultimo, la 
linea 120 scrive GOTO 50 e aalta a 140. 

.130: ae il carattere trattato e' l'ultimo, scrive 
GOTO 170. 

.140/150: pone 3 nel byte 239 (il byte 239 indica il 
numero di caratteri validi nel buffer di tastiera), 
pone nel buffer di tastiera il codice ASCII di HOME e 
due volte il codice ASCII di RETURN e esce dal 
programma. A questo punto il COMMODORE 16 trova nel 
buffer di tastiera HOME e quindi porta il cursore sul¬ 
la linea DATA, un RETURN e quindi introduce nel 
programma la linea DATA portando il cursore sulla 
seconda linea scritta dal programma; trova il secondo 
RETURN ed esegue quindi i comandi scritti sulla linea, 
aggiorna cioè' le variabili e salta a 50 o a 170. 

.160: e' la routine che trasforma il numero N nella 
corrispondente stringa N$ usando la funzione STR$ e 
scartando il carattere che contiene il segno. 

.170: usando il metodo appena descritto, cancella le 
1 i nee da 10 a 170. 


6.5 CARATTERI A SFONDO PROGRAMMABILE 

Tu sai che quando scrivi un carattere con il COMMODORE 
16 puoi sceglierne il colore, selezionando il colore 
1, usando i codici di controllo del colore del curso¬ 
re, o scrivendo nella mappa degli attributi il codice 
desiderato. In questo modo selezioni il colore dello 
"inchiostro" con cui il COMMODORE 16 scrive il carat¬ 
tere, ma quello della "carta" (lo sfondo) rimane sem¬ 
pre lo stesso. TED ha la capacita' di leggere 4 diver¬ 
si colori di sfondo quando e' posto in modo SFONDO 
PROGRAMMABILE. In questo modo, infatti, quando TED 
legge dalla mappa video il codice del carattere da 
visualizzare, considera i 6 bit meno significativi co¬ 
me codice del carattere, e i due bit rimanenti come 
codice del colore dello sfondo. Hai cosi' a dispo¬ 
sizione un set di soli 64 (2 elevato a 6) caratteri, 
ma puoi scegliere per ciascuno di essi un colore di 
sfondo su 4 possibili. Puoi naturalmente scegliere 
questi 4 colori tra i 121 a disposizione. Con il modo 
a sfondo programmabile puoi ottenere delle bellissime 
maschere o dei coloratissimi quadri grafici. I carat¬ 
teri che si perdono con il modo a sfondo program¬ 
mabile sono: 

. tutto il set MINUSC0LO/MAIUSCOLO (TED non consi¬ 
dera, infatti, il bit 2 del registro 13 , quando e' in 



modo SFONDO PROGRAMMABILE, non e' quindi possibile 
selezionare il set MINUSCOLO/MAIUSCOLO ) . 

. tutti i caratteri in campo inverso. 

. tutti i caratteri grafici. 

Ti rimangono quindi a disposizione solo le lettere 
maiuscole, le dieci cifre, i segni di punteggiatura e 
delle operazioni matematiche. 

Dei 4 color i-sf ondo per i caratteri, uno e* quello 
dello schermo, i codici degli altri tre vanno posti 
nei registri del TED che rispondono agli indirizzi 
65302, 65303 , 65304 ($FF16, $FF17, $FF18). Se L e' il 
numero della luminosità' (tra 0 e 7) e C e' il numero 
del colore (tra 1 e 16), devi porre nei registri il 
numero L*16 + C-1 . 

. il colore dello schermo viene dato come 3fondo ai 
caratteri che hanno nei due bit piu* significativi del 
codice 00. 

. il colore del registro di indirizzo 65302 (colore 

di sfondo 1) viene dato come sfondo ai caratteri che 

hanno nei due bit piu' significativi del codice 01. 

. il colore del registro di indirizzo 65303 (colore 

di sfondo 2) viene dato come sfondo ai caratteri che 

hanno nei due bit piu' significativi del codice 10. 

. il colore del registro di indirizzo 65304 (colore 

di sfondo 3) viene dato come sfondo ai caratteri che 

hanno nei due bit piu' significativi del codice 11. 
Ricorda che, normalmente, il bit 7 vale 1 per i carat¬ 
teri in campo inverso: nel modo a sfondo program-, 
inabile, quindi, se premi una A ottieni una A su sfon- 
do normale, mentre RVS 0N + A produce una A con colo¬ 
re di sfondo 2. Per le lettere e lo spazio vale anche 
la regola che SHIFT-LETTERA visualizza la lettera con 
colore di sfondo 1 e RVS 0N + SHIFT-LETTERA visua-> 
lizza la lettera con colore di sfondo 3- Questa rego¬ 
la non vale per i numeri e i rimanenti simboli. Alla 
fine del paragrafo riportiamo la Tabella 6.1; essa ti 
aiuta a ottenere facilmente i 64 simboli con i vari 
colori di sfondo. Per entrare in modo SFONDO PROGRAM¬ 
MABILE basta porre a 1 il bit 6 del registro 6 del TED 
che risponde all'indirizzo 65286 ($FF06). L'istru¬ 

zione da dare e' quindi la seguente: 

P0KE 65286, PEEK(65286> OR 64 

mentre l'istruzione da dare per tornare al modo modo 
normale e': 

P0KE 65286, PEEK(65286) AND 191 
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Come prova di programmazione dello sfondo dei carat¬ 
teri segue il programma GRAF7. 


O rem 3rs.f7 

10 color®.. 1 co 1 or4.1 

20 PoKe.65286•PeeK <65286>or64 

30 PoKe65302 , 92 

40 P oK@65303■94 

50 poKe65304.. 82? 

60 Printchr*<147> 

70 co1 or 1•o. 5 

80 chìr 1 , 13,6.- "Commodore 16" 

90 c o 1 or 1 • 63 
100 eh.» ri, 9, 9," 

110 eh srl,9,10," PROGRAMMO DI PROVA " 

120 citar 1,9.11 .■ " 

1 t i co ì or" 1 • 7 j 3 
14O citar 1 , 13, 13, chr*<18>+" 

150 citar 1.. 13.. 14 .. chr*< 18 ) + " ca.ra.tter i " 

160 citar 1 , 13, 15, chr$ < 18 > + " 

170 colori . 3.. 3 
1 80 citar 1,7,17, chrt < 18 > + " 

190 citar 1,7, 18, chrt< 18> + " A SFONDO PROGRAMMABILE " 
2O0 charl,7,19,chrì<18>+" 

210 9et-Keya$ 

220 P oi<e65286, P eeK <65286 > and 191 


COMMENTO A GRAF7 
.10: schermo e bordo neri. 

.20: entra in modo sfondo programmabile. 


.30: colore di 
( 5»16+13^1-92). 

sfondo 1 : 

colore 

13 

con 

luminosita' 

5 

.40: colore di 
(5*16+15-1-94). 

sfondo 1 : 

colore 

15 

con 

luminosita' 

5 

.30: colore di 

sfondo 1 : 

colore 

3 

con 

luminosita' 

5 


( 5*1 6 + 3->1 -82). 

.60: pulisce lo schermo. 

.70: colore delle scritte giallo. 

.80: scrive in colonna 13, riga 6, "COMMODORE 16". 

.90: colore delle scritte verde. 

.100: scrive in colonna 9, riga 9, 20 spazi shifta- 

tl. 

.110: scrive in colonna 9, riga 10, la scritta 

shlftata " PROGRAMMA DI PROVA ". 

.120: scrive in colonna 9, riga 11, 20 spazi shifta- 
t i . 

.130: colore delle scritte blu. 

.1*10: scrive in colonna 13 , riga 13 , 11 spazi rever¬ 
sati. 

.150: scrive in colonna 13, riga 14, la scritta 

reversata " CARATTERI ". 
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.160: scrive in colonna 13, riga 15, 11 spazi rever-> 
sati . 

.170: colore delle scritte rosso. 

.180: scrive in colonna 7, riga 17, 24 spazi shifta-< 
ti e reversati. 

.190: scrive in colonna 7, riga 18, la scritta 
shiftata e reversata " A SFONDO PROGRAMMABILE ". 

.200: scrive in colonna 13, riga 15, 24 spazi shif-> 

tati e reversati. 

.210: attende la pressione di un tasto. 

.220: torna al modo normale. 


Nota che in modo sfondo programmabile, il bit 7 
dell'attributo viene ignorato, non e' possibile quin-> 
di ottenere caratteri lampeggianti (effetto FLASH). Ti 
proponiamo ora il programma GRAF8, leggermente piu' 
complicato, che usa il modo sfondo programmabile con i 
caratteri definiti in RAM: in questo esempio gli stes-= 
si caratteri vengono "disegnati" su sfondi diversi. 


0 REM GRRFS 

10 P0KE56,56'P0KE55,0 : CLR=DH=1024 
20 FOR1=14336T014527 
30 RERDR 
40 POKEI..R 
50 HEXT 

60 FORI=0TO7=POKE14592+1,0=HEXT 
70 PRIHTCHR*<147> 

80 COLORO,14,6 = C0L0R4,2,5 
90 POKE65302,85 
100 POKE65303,73 
110 POKE65304,103 

120 F0KE65299,< PEEK< 65299 >RHD3> +56 

121 P0KE65298,PEEK<65298!>HHD251 
130 P0KE65286,PEEK <65286 >0R64 
140 COLOR1,3,3 = CHRR1,39,7,"V" 

ISO FORI=0TO2 

160 CHRR1,38-1,8+1,LEF T# <"VWWW”,I+2 > 

170 HEXT 

180 FORI=3592T03751= POKE1,96 = NEXT 
198 FORI=3752T03911= POKEI,160 = HEXT 
200 FORI=3912TO4071= POKE1,96 = HEXT 
210 FORI=0TO2 = FOR J=0TQ2 = POKE3549+.J+I*40, 224 
220 HEXT = HEXT 


230 

0G=3588 

T=1 

OOSUE500 

240 

00=3678 

T=0 

OOSUB500 

250 

00=3538 

T =0 

GOSUB500 

260 

00=3848 

T=1 

GOSUB500 


270 GETKEYfl* 

280 P0KE65286,PEEK C65286 > RHD191 
290 P0KE65299,(PEEK <65299 > RH03 >+208 
300 P0KE65298,PEEK <65298 >0R4 
310 PRIHTCHR*=147)=EHD 
500 IFTTHEH620 
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510 POKEOG, F'EEK < OG > AND 196 > +0 

511 POKEOG—DM,113:OG=OG+1 

520 POKEOG,< PEEK<OG > RND196 > +1 

521 POKEOG—DM,113:0G=0G+39 

530 POKEOG, <PEEK<OG>RND196> +2 

531 POKEOG—DM,54 :00=0G+1 

540 POKEOG,<PEEK < OG > RND196 >+3 

541 POKEOG—DM, 54 =0G=0G+3S 

550 POKEOG,<PEEK < OG > RND196 >+6 

551 POKEOG—DM,54 = OG=OG+1 

560 POKEOG, C PEEK c; OG > RND 196 > +4 

561 POKEOG—DM,54 :OG=OG+1 

570 POKEOG,CPEEK <OG>RND196>+5 

571 POKEOG—DM,54 = 0G=0G+39 

580 POKEOG, < PEEK < OG 'j RND 196 > +7 

581 POKEOG—DM,113:0G=OG+1 
59© POKEOG,< PEEK <OG > RND196 >+8 
591 POKEOG—DM,113=0G=QG+39 

600 POKEOG, c: PEEK ( OG > RND 196 >+9 

601 POKEOG-DM,113=OG=OG+1 

610 POKEOG,C PEEK < OG > RND196 > +10 

611 POKEOG-DM.113 RETURN 

620 POKEOG,<PEEK <OG >RND196 > +12 

621 POKEOG-DM,113=OG=QG+1 

630 POKEOG,C PEEK<OG >RND196 > +11 

631 POKEOG-DM,113=0G=0G+39 

640 POKEOG,C PEEK <OG > RND196 > +14 

641 POKEOG-DM,54 = OG=OG+1 

650 POKEOG, <. PEEK<OG>RND196> +13 

651 POKEOG-DM,54 = 0G=0G+39 

660 POKEOG,<PEEK<OG>RND196^ + 16 

661 POKEOG-DM,54 = OG=OG+1 

670 POKEOG, ■'PEEK C OG >RND 196> +15 

671 POKEOG-DM,54 = OG=OG+1 

680 POKEOG,< PEEK < OG >RND196 > +17 

681 POKEOG-DM,54 = 0G=0G+38 

690 POKEOG,<PEEK <OG >RND196 > +19 

691 POKEOG-DM,113=OG=OG+1 

70@ POKEOG,<PEEK<OG>RND196> + 18 
701 POKEOG-DM,113 = 0G=0G+39 

710 POKEOG, CPEEK C OG ;■ RND 196> +21 

711 POKEOG-DM,113=OG=OG+1 

720 POKEOG, < PEEKCOG>RND196 >+20 

721 POKEOG-DM,113=RETURN 

730 DRTHO,0,1,3,7,15,31,31 

74 0 DRTR0,96,240,240,224,192, 192,224 

750 DRTR31,63,63,127,127,63,31,7 

760 DRTR224,54,191,255,246,240,224,O 

770 DRTR7,31,62,125,251,247,207,159 

730 DRTR0,176,216,220,238,239,231,195 

790 DRTR0,0,0,0,1,7,7,15 

80O DRTR31,31,15,23,27,29,30,60 

310 DRTR192,128,128,225,243,119,127,62 

820 DRTR126,255,126,0,0,0,0,0 

830 DRTR28,0,0,0,0,0,0,0 

840 DRTR8,0,128,192,224,240,248,243 

850 DRTR0,6,15,15,7,3,3,7 

860 DRTR248,252,252,254,254,252,243,224 

370 DRTR7,108,253,255,111,15,7,0 

830 DRTR224,248,124,190,223,239,243,249 

390 DRTR0,13,27,59,119,247,231,195 

900 DRTR0,0,0, 0, 128,224,224,240 

91© DRTR248,248,240,232,216,184,120,60 
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920 DRTR3,1,1,135,207,238,254,124 

930 DRTR126,255,126,0,0,0,0,0 

940 DRTR56,0,0,0,0,0,0,0 

950 OfiTRl,3,7,15,31,63,127,255 

960 DRTR255,255,255,255,255,255,255,255 


GRAF8 memorizza 1 dati relativi a 22 caratteri necesi 
sari a disegnare dei puffi e, grazie a una subrou¬ 
tine, li pone in un qualsiasi punto di uno schermo 
variopinto. 

COMMENTO A GRAF8 

.10: pone la fine della memoria a 14336 ($3800) per 
proteggere i caratteri dalle variabili e pone nella 
variabile DM (Differenza Mappe) la differenza tra il 
primo indirizzo della mappa degli attributi e il pri-> 
mo indirizzo della mappa video. 

.20/50: pone in memoria i dati delle immagini dei 
caratteri . 

.60: azzera il carattere 32 (lo spazio). 

.70: pulisce lo schermo. 

.80: schermo blu chiaro e bordo grigio. 

.90/110: selezionano i tre colori di sfondo: 

1-verde, 2-marrone, 3-giallo. 

.120: descrizione dei caratteri a partire da 14336 
($ 3800 ). 

.130: entra in modo sfondo programmabile. 

.140/170: disegna un triangolo rosso (che sara' il 
tetto di una casetta) con i caratteri programmati. No¬ 
ta che non puoi sovrapporre dei puffi al tetto per¬ 
che' questo e' stato ottenuto con dei caratteri e non 
con degli spazi colorati. 

.180: disegna una striscia di spazi shiftati (colore 
di sfondo 1 ). 

.190: disegna una striscia di spazi reversati (co¬ 
lore di sfondo 2). 

.200: disegna un'altra striscia di spazi shiftati 
(colore di sfondo 1). 


.210/220: disegna un quadrato di 3X3 spazi shiftati e 
reversati (colore di sfondo 3) che sara' la casetta. 


.230: disegna 

un 

puffo 

di tipo 

1 

(che 

guarda a 

sinistra), il 

cui 

angolo 

in alto 

a 

sinistra verrà' 

posto nel byte 

di 

memoria 

v'.deo 3588, 

usando la rou^ 

tine in 500. 







.240: disegna 

un 

puffo 

di tipo 

0 

( che 

guarda a 


destra), il cui angolo in alto a sinistra verrà' posto 
nel byte di memoria video 3678, usando la routine in 
500. 



.250: disegna un puffo di tipo 0 (che guarda a 

destra), il cui angolo in alto a sinistra verrà' posto 

nel byte di memoria video 3538, usando la routine in 
500. 

.260: disegna un puffo di tipo 1 (che guarda a 

sinistra), il cui angolo in alto a sinistra verrà' 

posto nel byte di memoria video 3848, usando la rou-> 
tine in 500. 

.270: attende che sia premuto un tasto. 

.280: esce dal modo a sfondo programmabile. 

.290/300: descrizione dei caratteri in ROM. 

• 310 : pulisce lo schermo ed esce. 

.500: inizia la routine che disegna i puffi. Salta se 
TOO cioè’ se il puffo e' di tipo 1. 

.510/610: ogni linea disegna uno degli 11 caratteri 
che formano un puffo di tipo 0 e pone nel corrispon- 
dente byte della mappa degli attributi il colore adat¬ 
to. Per disegnare un carattere in un byte facciamo la 
AND tra il contenuto del byte e 196 per ottenere il 
valore del bit 7 e 6, sommiamo quindi il codice del 
carattere e poniamo il risultato nel byte. In questo 
modo lasciamo Inalterato il colore dello sfondo. 

.620/720: ogni linea disegna uno degli 11 caratteri 
che formano un puffo di tipo 1 e pone nel corrispon¬ 
dente byte della mappa degli attributi il colore adat¬ 
to . 

.730/960: dati relativi ai caratteri dei puffi e del 
tetto della casa. 


i TABELLA 6.1 ì 

1 1 


TASTI 

DA PREMERE 


1 I ME:. i 

SFONDO 

Ì COLORE 1 1 

COLORE 2 

1 COLORE 3 


1 e 1 


1 1 
1 SHIFT+* 1 

Rvs+e 

1 

1 RVS+SHIFT+* 


1 A 1 

A 

1 SHIFT+A 1 

RVS+fi 

1 RVS+SHIFT+A 


1 B 1 

B 

1 SHIFT+B 1 

RVS+B 

1 RVS+SHIFT+B 


1 C 1 

c 

1 SHIFT+C 1 

RVS+C 

1 RVS+SHIFT+C 


1 D 1 

D 

1 SHIFT+D 1 

RVS+D 

1 RVS+SHIFT+D 


1 E 1 

E 

1 SHIFT+E 1 

RVS+E 

1 RVS+SHIFT+E 


1 F 1 

F 

1 SHJFT+F 1 

RVS+F 

1 RVS+SHIFT+F 


! 0 1 

O 

1 SHIFT+G 1 

RVS+G 

1 RVS+SHIFT+G 

—1 
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TflBELL.fi 6.1 


1 


TfiST I 

Dfl PREMERE 

z. i nt.. 

SFONDO 

ì COLORE 1 

COLORE 2 

i COLORE 3 

H 

H 

1 

1 SHIFT+H 

RVS+H 

1 

1 P.VS+SH IFT+H 

I 

I 

1 SHIFT+I 

RVS+I 

1 RVS+SHIFT+I 

J 

J 

1 SHIFT+J 

RVS+.J 

1 RVS+SHIFT+J 

K 

K 

1 SHIFT+K 

RVS+K ■ 

1 RVS+SHIFT+K 

L 

L 

1 SHIFT+L 

RVS+L 

1 RVS+SHIFT+L 

m 

M 

1 SHIFT+M 

RVS+M 

1 RVS+SHIFT+M 

H 

H 

1 SHIFT+N 

RVS+H 

1 RVS+SHIFT+H 

0 

0 

1 SHIFT+O 

RVS+O 

1 RVS+SHIFT+O 

p 

P 

1 SHIFT+P 

RVS+P 

1 RVS+SHIFT+P 

Q 

Q 

1 SHIFT+O 

RVS+Q 

1 RVS+SHIFT+Q 

R 

R 

1 SHIFT+R 

RVS+R 

1 RVS+SHIFT+R 

!-. 

S 

1 SHIFT+S 

RVS+S 

1 RVS+SHIFT+S 

T 

T 

1 SHIFT+T 

RVS+T 

1 RVS+SHIFT+T 

IJ 

IJ 

1 SHIFT+U 

RVS+IJ 

1 RVS+SHIFT+U 

V 

V 

1 SHIFT+V 

RVS+V 

1 RVS+SHIFT+V 

w 

w 

1 SHIFT+W 

RVS+W 

1 RVS+SHIFT+W 

X 

X 

1 SHIFT+X 

RVS+X 

1 RVS+SHIFT+X 

V 

V 

1 SHIFT+V 

RVS+V 

1 RVS+SHIFT+V 

-y 

z 

1 SHIFT+Z 

RVS+Z 

1 RVS+SHIFT+Z 

c 

c 

1 SHIFT++ 

RVS+C 

1 RVS+SHIFT++ 

£ 

£ 

1 CBM+- 

RVS+£ 

1 RVS+CBM+- 

3 

3 

1 SHIFT+- 

RVS+3 

1 RVS+SHIFT+- 

f 

t 

1 CBM+= 

RVS+ T 

1 RVS+e.BM+= 

1 

<7- 

♦- 

1 CBM+* 

RVS++- 

1 RVS+CBM+# 

SP 

SP 

1 SHIFT+SP 

RVS+SP 

1 RVS>SHIFT+SP 
j 

1 

1 

1 CBM+K 

RVS+ ! 

1 RVS+CBM+K 

It 

II 

1 CBM+I 

RVS+" 

1 RVS+CBM-»-I 

# 

# 

1 CBH+T 

RVS+# 

1 RVS+CBM+T 
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Ì TABELLA 6.1 i 


IMB. 

1 


TASTI DA PREMERE 


1 

jSFONDO 

i COLORE 1 

ì COLORE 2 

ì COLORE 3 


1 

$ 

1 

1 

» 

ì CBM+0 

1 RVS+$ 

1 RVS+CBM+S 




1 

•/. 

1 CBM+G 

1 RVS+K 

1 RVS+CBM+G 



& 

1 

& 

1 CBM++ 

1 RVS+& 

§ RVS+CBM++ 



" 

1 


1 CBM+M 

1 RVS+" 

1 RVS+CBM+M 



< 

t 

< 

1 CBM+£ 

1 RVS+< 

1 RVS+CBM+£ 



> 

1 

> 

1 SHIFT+£ 

1 RVS+> 

1 RVS+SHIFT+£ 



* 

1 

1 

* 

1 CBM+H 

1 RVS+* 

1 RVS+CBM+H 



+ 

1 

1 

+ 

1 CBM+Q 

1 RVS++ 

1 RVS+CBM+Q 




1 

t 

1 CBM+D 

1 RVS+, 

1 RVS+CBM+D 



- 

1 

- 

1 CBM+Z 

1 RVS+- 

1 RVS+CBM+Z 



- 

1 


1 CBM+S 

1 RVS+. 

1 RVS+CBM+S 



/ 

1 

/ 

1 CBM+P 

1 RVS+/ 

1 RVS+CBM+P 



0 

1 

0 

! CBM+A 

! RVS+0 

ì RVS+CBM+A 


1 

1 

1 

1 

1 CBM+E 

1 RVS+1 

1 RVS+CBM+E 



C- 

1 

■“i 

c_ 

1 CBM+R 

1 RVS+2 

1 RVS+CBM+R 



3 

1 

3 

1 CBM+W 

1 RVS+3 

1 RVS+CBM+W 



4 

1 

4 

1 CBM+H 

1 RVS+4 

1 RVS+CBM+H 



5 

1 

5 

1 CBM+J 

1 RVS+5 

1 RVS+CBM+J 



6 

1 

6 

1 CBM+L 

1 RVS+6 

1 RVS+CBM+L 



7 

1 

7 

1 CBM+V 

1 RVS+7 

1 RVS+CBM+V 



S 

1 

8 

1 CBM+U 

1 RVS+8 

1 RVS+CBM+U 



9 

1 

3 

1 CBM+O 

1 RVS+3 

1 RV'S+CBM+O 




1 


1 SHIFT+e 

1 RVS+ : 

1 RVS+SHIFT+Q 



; 

1 

1 

* 

1 CBM+F 

1 RVS+; 

1 RVS+CBM+F 



<: 

1 

< 

1 CBM+C 

1 RVS+C 

1 RVS+CBM+C 



EX 

1 

= 

1 CBM+X 

1 RVS+= 

1 RVS+CBM+X 



y 

1 

> 

1 CBM+V 

1 RVS+> 

1 RVS+CBM+V 



7 

1 

1 


1 CBM+B 

1 

_l_ 

1 RVS+? 

1 

_1 _ 

1 RVS+CBM+B 

1 

■ 
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6.6 CARATTERI MULTICOLORE 


Questo paragrafo tratta dell'ultimo modo che hai a 
disposizione per rappresentare 1 caratteri con il 
COMMODORE 16: il modo MULTICOLORE. Come nei modi gra¬ 
fici 3 o 4, nel modo multicolore, ad ogni puntino che 
forma un carattere corrispondono 2 bit. In questo mo¬ 
do puoi associare ad ogni punto un colore scelto tra 4 
possibili (invece che tra 2) ma la matrice di ogni 
carattere e' 4x8 (anziché' 8x8). Per entrare in modo 
MULTICOLORE devi porre a 1 il bit 4 del registro 22 
del TED (indirizzo 65287 ($FF16)); bisogna cioè' 

eseguire l'istruzione: 

POKE 65287, PEEK(65287) OR 16 

per tornare in modo ad alta risoluzione devi usare 
1'istruzione : 

POKE 65287, PEEK(65287) AND 239. 

Per chiarire le idee vediamo come TED legge il carat¬ 
tere A in modo multicolore sapendo che gli 8 byte che 
descrivono la A contengono: 

0 0 0 1 10 0 0 
0 0 11110 0 
0 110 0 110 
0 1111110 
0 110 0 110 
0 110 0 110 
0 110 0 110 
00000000 

TED in modo multicolore interpreta ogni byte come una 
serie di quattro punti, cosi': 


00 

01 

10 

00 

cioè' come: 

A 

B 

C 

A 

00 

11 

11 

00 


A 

D 

D 

A 

01 

10 

01 

10 


B 

C 

B 

C 

01 

11 

11 

10 


B 

D 

D 

C 

01 

10 

01 

1 0 


B 

C 

B 

C 

01 

10 

01 

1 0 


B 

C 

B 

c 

01 

1 0 

01 

10 


B 

C 

B 

c 

00 

00 

00 

00 


A 

A 

A 

A 


dove A, B, C e D sono rispettivamente: 
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- il colore dello schermo. 

- il colore 3. 

- il colore indicato dal registro 23 (indirizzo 65303 
($FF17)) con la convenzione 16*L+C-1, dove C e' il 
codice del colore e L la luminosità*. 

-> il colore proprio del carattere. 

I primi 3 colori possono essere scelti tra i 16 del 
COMMODORE 16, mentre il quarto può’ essere solo uno 
dei primi 8. Questa piccola limitazione permette, in 
compenso, di visualizzare contemporaneamente oarat' 
ter! multicolore e alta risoluzione. TED, infatti, 
visualizza il carattere come multicolore solo se il 
byte corrispondente della mappa degli attributi ha il 
bit 3 a 1 e assume come codice del colore il numero 
formato dai 3 bit meno significativi. Quando scegli il 
colore proprio del carattere dovrai sceglierlo tra i 
primi 8 e aggiungere 8 se lo vuoi multicolore o 0 se 
lo vuoi normale. 

Ecco GRAF9 come esempio di programmazione di un carat¬ 
tere multicolore. 


0 REM GRAF9 
IO PRINTCHR$<147> 

20 PORI=0TO7:REROR>POKE14336+I,R ; NEXT 
30 FORI--0TO7 : POKE 14336+32*3+1,0 = NEXT 
40 COLORO,15,0 COLOR4,15,0 
50 COLORI,14,4 
60 POKE65303,16*7+1 
70 OQL0R3•3•3 

SO P0KE65237, F'EEK < 65287 >OR 16 
90 P0KE65299,<PEEK<65299>RN03>+56 
100 P0KE65298,PEEK<65298>RND251 
HO PRIHT"@" 

120 GETKEVA* 

130 P0KE65287,PEEK < 65287> RND239 
140 P0KE65299,<PEEK<65299>RND3>+208 
150 P0KE65298,PEEK <65298>0R4 
lO00 DATA165,165,165,165,24©,240,240,240 


COMMENTO A GRAF9 
.10: pulisce lo schermo. 

.20: pone in memoria i dati relativi al carattere di 
D/CODE 0. 

.30: azzera il carattere di D/CODE 32 (lo spazio). 
.40: schermo e bordo blu. 

.50: colore del cursore 14 (in modo multicolore vuol 
dire colore D-6 (verde), carattere da visualizzare in 
modo multicolore). 
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.60: colore 02 (bianco). 

.70: colore B-3 (rosso). 

.80: entra in modo multicolore. 

.90/1 00: descrizione dei caratteri in 1*1336 ($3800). 
.110: scrive il carattere di D/CODE 0. 

.120: attende la pressione di un tasto. 

.130: torna al modo alta risoluzione. 

.140/150: caratteri in ROM. 

.1000: dati relativi al carattere. 

Il carattere che abbiamo programmato e' questo: 

165 - 10100101 - CCBB 

165 - 10100101 - CCBB 

165 - 10100101 - CCBB 

165 - 10100101 - CCBB 

240 - 11110000 - DDAA 

240 - 11110000 - DDAA 

240 - 11110000 - DDAA 

240 - 11110000 - DDAA 

In questo modo il carattere programmato e' composto da 
4 quadratini di colore diverso. Questo esempio mostra 
come TED possa porre 4 colori diversi nella posizione 
di un solo carattere, ma il risultato non e' certa-^ 
mente dei piu' pittoreschi. Prova quindi il programma 
GRAF10 il cui scopo e' quello di disegnare dei colorai 
tisslmi omini spaziali. 


0 RETI GRRFIO 
IO PRINTCHR*<147> 

20 FORI=0TO47 . REROfi = POKE14336+1 ,R = HEXT 
38 FORI=0TO7^POKE14336+32*8+1,0 HEXT 
40 COLORO, 1 :C0L0R4,1 
50 COLORI,16, 6 
6© POKE65303,16*4+6 
70 C0L0R3,3,3 

80 P0KE65287,PEEK<65287 >OR16 
90 P0KE65299,<PEEK <65299> RND3 >+56 
108 P0KE65298,PEEK<65298>0MD251 
HO CHRR, O, IO, " 0fi OR OR OR OR OR OR" 
115 F'RIMT" OR OR OR OR OR OR" 

120 F'RIHT" BC BC BC ESC BC BC BC"; 

125 PRIHT" BC BC BC BC BC BC" 

130 F'RIHT" DE DE DE DE DE DE DE"; 

135 PRIHT" DE DE DE DE DE DE" 

140 OETKEVR* 

150 P0KE65287,PEEKX 65237 >RHD239 
160 P0KE65299,<PEEK <65299>RHD3 >+208 
178 P0KE65298, PEEK. < 65298 :■ 0P.4 
1008 DRTR192,192,49,53,21,31,65,85 
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1010 DRTR3,3,76,32,34,69,65,85 
1020 DRTR84,85,22,5,3.5,21.. 85 
1030 DRTR21,85,148,30,192,80,84,85 
1040 DRTR85,85,21,5,1,34,42,10 
1050 DRTR85,85,84,80,64,136,168,160 


COMMENTO A GRAFI 0 

.10: pulisce lo schermo. 

.20: programma 1 caratteri che formano l'omino. 

.30: programma lo spazio. 

.HO: schermo e bordo neri. 

.50: pone a 16 il colore dei caratteri (il colore D); 
saranno quindi caratteri multicolore con colore 8, 
cioè' giallo. 

.60: pone a 7 (blu) il colore C. 

.70: pone a 3 (rosso) il colore B. 

.80: entra in modo multicolore. 

.90/100: descrizione dei caratteri in 1H336 ($380-> 

0 ). 

.110/135: scrive partendo dalla colonna 0, riga 10, i 
caratteri che compongono gli omini. 

.1 HO : attende la pressione di un tasto. 

.150: torna al modo normale. 

.160/170: riporta la descrizione dei caratteri in 
ROM. 

.1000/1050: dati relativi agli omini. 


6.7 ANNULLAMENTO DELLO SCHERMO 

E' possibile annullare tutto ciò' che compare sullo 
schermo pónendo a 0 il bit H del registro 6 del TED. 
Tale registro risponde all'indirizzo 65286 ($FF06); 

l'istruzione da impartire e’ quindi: 

POKE 65286, PEEK(65286 ) AND 239 

eseguendola lo schermo diventa completamente vuoto e 
dolio stesso colore del bordo, come quando il calco-' 
latore accede a nastro. Per riportare la situazione 
alla normalità' devi compiere l'operazione inversa, 
cioè' eseguire: 

POKE 65286, PEEK(65286) OR 16. 

Puoi sfruttare questa opzione di TED per compiere del-> 
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le operazioni sullo schermo mentre questo non si può' 
vedere, ma il vero significato di questo bit e' un 
altro. Come sai TED chiede del tempo alla CPU per 
poter leggere dalla memoria i dati che gli servono per 
sapere cosa visualizzare. Quando lo schermo viene 
annullato, TED non ha piu' bisogno di quei dati e 
quindi "lascia in pace" la CPU che può* svolgere le 
sue funzioni con una velocita' notevolmente piu' alta. 
Prova ora a far girare il programma GRAF11: 


0 REM GRAFI1 

10 P0KE65286,PEEKt65286>AND239 

20 TI$="O0O0Q£i" 

30 FORI = 1TO10080^ NEXT 
40 fi = IN T < TI6 >10 
50 P0KE65236,PEEK<65286>OR16 
60 TI t= "OO0OOO" 

70 FORI = 1TO10G00 = NEXT 
80 8=1 NT CTI,'6::'.'10 

90 PRINT"CON SCHERMO ANNULLATO = ,, A"SECONDI " 

100 FRINT"CON SCHERMO NON ANNULLATO :"B" SECONDI 


Come vedi il tempo impiegato a schermo annullato e' 
sensibilmente minore di quello impiegato nello stato 
normale. Ma il vantaggio piu' importante non e' nella 
velocita' che si guadagna, ma nella precisione con cui 
la CPU può' calcolare i ritardi. Con adatte routine in 
linguaggio macchina, infatti, si possono calcolare 
ritardi con una precisione di meno di 1 milionesimo di 
secondo a patto di mascherare gli Interrupt e di 
annullare lo schermo. Ritardi cosi' precisi servono in 
alcune operazioni di I/O come quelle del nastro. 


6.8 SCORRIMENTO FINE (SMOOTH SCROLLINO E REGISTRO DI 
LINEA 

TED permette di far scorrere tutto il contenuto dello 
schermo di un solo punto (un ottavo di carattere), 3ia 
in direzione orizzontale che in direzione verticale. 

I registri con cui si controllano queste operazioni 
sono rispettivamente i registri 7 e 6 che rispondono 
agli indirizzi 65287 ($FF07) e 65286 ($FF06). I bit 
2-’0 di questi registri indicano quale delle 8 possi-’ 
bili posizioni (da 0 a 7) devono assumere i caratteri 
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sul video, mentre 11 bit 3 seleziona, se posto a 0, 
rispettivamente il modo a 38 colonne (1 per H0 colon¬ 
ne) e a 24 righe (1 per 25 righe). 

Nota che lo schermo rimane sempre di 25 righe di 40 

colonne, ma ponendo a 0 questi bit vengono visua¬ 

lizzate solamente 24 righe e 38 colonne: questo 
permette di aggiungere, nella parte nascosta dello 

schermo, i nuovi dati e farli entrare lentamente nel¬ 

la parte visibile realizzando lo scorrimento fine. Per 
ottenere uno scorrimento fine, quindi, devi: 

. diminuire la parte visibile dello schermo nella 
direzione in cui lo vuoi far scorrere (ad esempio, 
se vuoi far scorrere lo schermo in direzione verti¬ 
cale, lo dovrai portare a 24 righe). 

. porre i 3 bit meno significativi del registro 
interessato a 7 o a 0 (se lo scorrimento viene fat¬ 
to dall'alto verso il basso a 0, viceversa a 7; da 
sinistra a destra a 0, viceversa a 7). 

. scrivere i nuovi dati da visualizzare nella parte 
nascosta dello schermo. 

. incrementare (o decrementare) il contenuto dei bit 
2-1 del registro interessato fino al valore massimo 
(o minimo). 

. riportare il contenuto dei bit 2-0 al valore del 
secondo passo e far scorrere tutta la scritta di un 
carattere intero nella direzione dello scorrimento. 
Questa operazione deve essere fatta con una routine 
in linguaggio macchina poiché' in BASIC si vede 
nettamente che questa operazione equivale a fare 7 
passi indietro piu' 8 in avanti, mentre deve sembra¬ 
re che sia un solo passo in avanti. 

. tornare al punto 3. 

Vediamo un paio di esempi che chiariscono meglio que¬ 
sti concetti: 


n REM GRftF12 

IO COLORO,15,1:COLOR1,14,6:C0L0R4,15,1 
CO PRIHTCHR*<147> 

JO FRINT"CHE SCRITTA VUOI FAR SCORRERE " PRINT 
•IO CETRE VA» : IFA*=CHR*< 13 > ORLEN < B* > =253THEN60 
50 B*=B*+A*PRINTA*.: = GOT040 
60 B*=E:*+" 

CO L=LEM(B*>=PRINTCHR*(14?) 

CO P0KE652S7,PEEK<65287 >RND247 
90 FQRI=lTOLEN(B*> 
t OO PRINTCHR*<19>" 

I 10 PRINTCHR*(20); : P0KE65287, <PEEK.<65287>AHD248>+7 
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120 PRIHTCHR*C17 >CHR*<157 > MID$ < B$,1, 1 > 
130 FORJ=6TO0STEP-1 

140 P0KE65287, < PEEK < 65287>BND248 >+J 
150 NEXT J 
160 HEXT I 
170 GOTO90 


COMMENTO A GRAFI 2 

.10/30: inizializza 11 video. 

.*10/50: riceve una stringa che può' essere lunga fi¬ 
no a 253 caratteri. 

.60: aggiunge 2 spazi alla stringa. 

.70/80: calcola la lunghezza della stringa, pulisce 
lo schermo e seleziona il modo a 38 colonne. 

.90: inizializza un ciclo di tanti passi quanti sono 
i caratteri che formano la stringa. 

.100: posiziona il cursore sulla seconda colonna del¬ 
la prima riga. 

.110: cancella un carattere in modo da far scorrere 
tutta la prima riga a sinistra e riportare il cursore 
nell'angolo in alto a sinistra e pone 7 nei bit 2-0 
del registro dello scorrimento orizzontale (7 - mas¬ 
simo a destra). 

.120: sposta il cursore in basso e quindi a sinistra 
per posizionarlo sull'ultima colonna della prima ri¬ 
ga dove stampa l'I-esimo carattere della stringa. 

.130/150: ciclo che decrementa il contenuto dei bit 
2-0 del registro dello scorrimento orizzontale fino a 
0, spostando le scritte gradualmente a sinistra. 

.160: prossimo carattere della stringa. 

.170: torna alla linea 90 per cominciare nuovamente 
dall'inizio della stringa. 

Facendo girare GRAF12 ti accoregerai che un programma 
completamente BASIC non da' dei buoni risultati. La 
linea 110 andra' quindi sostituita con un'adeguata 
routine in linguaggio macchina come nel programma 
GRAF13 in cui la linea 110 e' stata sostituita dalla 
routine GRAFI 4. GRAF14 usa un registro di TED che non 
abbiamo ancora illustrato: il REGISTRO DI LINEA. Que¬ 
sto registro Ìndica in ogni istante quale delle 313 
linee che formano lo schermo viene disegnata da TED; 
risponde all'indirizzo 65309 ($FF1D ) per gli 8 bit 

bassi e da' il bit 8 (servono infatti 9 bit, da 0 a 8, 
per esprimere un numero tra 0 e 312 ) nel bit meno 
significativo se l'indirizzo e' 65308 ($FF1C). Le 

linee che formano la parte in cui TED può' visua- 
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lizzare i caratteri vanno dalla 4 alla 203- GRAFIA, 
prima di eseguire ciò' che veniva svolto dalla linea 
110 in GRAF12, controlla che il registro di linea 
contenga $CC (204) cioè' si assicura di svolgere le 
sue funzioni mentre TED sta disegnando la parte infe-* 
riore del bordo. Questo accorgimento e' necessario 
perche’, anche se la routine in linguaggio macchina e' 
velocissima, provocherebbe gli stessi effetti del 
BASIC se svolgesse le sue funzioni mentre TED sta 
disegnando le linee 4-11, su cui essa agisce. 

Vediamo ora i listati di GRAFI 3 e GRAFI 4. 


0 REM GRAFI3 

5 P0KE56, 63 : P0KE55.. 233 = CLR 

6 FORI =0TO22 : READFl POKE16361 +1 , A ■ NEXT 

10 COLORO,15,1=COLOR1,14,6=C0L0R4,15,1 
20 PRINTCHR* <147 > 

30 PRINT"CHE SCRITTA VUOI FAR SCORRERE "FRINT 
40 GETKEVA*:IFA*=CHR*<13>0RLEN<B*>=253THEN60 
50 B*=B*+A*=PRINTA*; = GOTO40 
60 B*=B*+" 


70 L=LEN (. B* > = PR INTCHR* < 147 > 

80 P0KE65287,PEEK< 65287 >AND247 
90 FORI = 1TOLEN< B* > 

100 PRINTCHR*<:i9V 
110 SVS16361 

120 PRINTCHR*<:i7>CHR*<:i57>MID*<:B*, 1,1! 
130 FORJ=6TO0STEP-1=FORK=1TO20>NEXT 


140 P0KE65287, C PEEK < 65287 > AND248 > +..T 
150 NEXT J 
160 NEXT I 
170 GOTO30 

180 DATA120,173,29,255,201,204,208,249 
190 DATA169,20,32,210,255,173,7,255 
200 DATA9,7,141,7,255,88,96 


NON ITOR 

PC SR AC XR. VR SP 
. 0000 00 00 00 00 F8 


3FE9 

78 



SEI 


3FEA 

AD 

1D 

FF 

LDA 

*FF1D 

3FED 

C9 

CC 


CMP 

#*CC 

3FEF 

D0 

F9 


BNE 

*3FEA 

3FF 1 

A9 

14 


LDA 

#*14 

3FF3 

20 

D2 

FF 

JSR 

*FFD2 

3FF6 

AD 

07 

FF 

LDA 

*FF07 

3FF9 

09 

07 


ORA 

#*07 

3FFB 

8D 

07 

FF 

STA 

*FF07 

3FFE 

58 



CLI 


3FFF 

60 



RTS 
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Il programma GRAF13 e' identico a GRAF12 tranne nelle 
linee: 

.5: che abbassa 1 puntatori di memoria e pone la rou¬ 
tine GRAFI 4 da 1 6361 ($3FE9) a 1 6383 ($3FFF). 

.110: che salta alla routine in linguaggio macchi¬ 
na . 

Vediamo ora come funziona la routine GRAF14, con 
riferimento agli indirizzi esadecimali. 

•3FE9: maschera gli interrupt per poter leggere 
continuamente il registro di linea. 

. 3FEA : carica nell'accumulatore i bit T-'O del regi¬ 
stro di linea. 

•3FED: controlla se e' arrivato a $CC , non controlla 
il bit 8 perche' questo non può' che essere 0 quando 
7-0 contengono $CC: infatti il registro di linea può' 
contenere da $00 a $138. 

.3FEF : se il registro di linea non contiene ancora 
$CC torna a leggere. 

. 3FF1 : carica nell'accumulatore $14 (20, che e' il 

codice ASCII di DELETE). 

• 3FF 3 : lo stampa. 

.3FF6/3FFB: pone a 1 i bit 0-2 del registro di 
scorrimento orizzontale. 

.3FFE: sente nuovamente gli interrupt. 

. 3FFF : torna al BASIC. 

Per uno scorrimento fine verticale le cose si compli¬ 
cano ulteriormente: infatti se chiediamo uno scorri¬ 
mento fine mentre il registro di linea e' in una posi¬ 
zione compresa tra la linea 4 e la 203, otteniamo uno 
spiacevole sfarfallio dello schermo e lo stesso vale, 
a maggior ragione, quando chiediamo un'operazione del 
tipo 7 passi indietro piu' 8 avanti. Per risolvere 
questi problemi bisogna quindi sincronizzare gli 
scorrimenti fini col registro di linea e compiere lo 
scorrimento degli 8 passi in maniera molto rapida. 
Purtroppo neanche una routine in linguaggio macchina 
riesce ad essere cosi' veloce da far scorrere lo 
schermo mentre il registro di linea e' tra 204 e 3. 
Abbiamo quindi fatto una routine in linguaggio macchi¬ 
na, la GRAF16, che usa 3 mappe video e degli attri¬ 
buti. Nella solita coppia, da $0800 a $0BE8 e da $0C00 
a $0FE8, poniamo, con l’istruzione BASIC CHAR, le nuo¬ 
ve stringhe; le altre due coppie, che sono visua¬ 
lizzate alternativamente da TED, occupano le loca¬ 
zioni da $3000 a $33E8 e da $3400 a $37E8 la prima 
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coppia, da $3800 a $3BE8 e da $3C00 a $3FE8 la secon- 
da. In questo modo, quando TED mostra una coppia, ven¬ 
gono trasferiti i dati della mappa video e attributi 
normali nell’altra. Al fatidico momento degli 8 passi 
avanti e 7 indietro, non facciamo altro che cambiare 
mappa video e attributi e compiere 7 passi indietro 
(operazione sufficentemente veloce): potremo quindi, 
con calma, aggiungere i nuovi dati nelle mappe nor¬ 
mali e trasferire il tutto nelle mappe non visualiz- 
zate. Vediamo, nel dettaglio, come funziona GRAF16: 


MOHITOR 


PC SR RC XR VP. SP 
0000 00 00 00 00 F8 


2FB0 

"70 

1 u 



SEI 


2FB1 

BD 

1D 

FF 

LDfi 

tFFlD 

2FB4 

C9 

cc 


CMP 

#*CC 

2FB6 

D0 

F9 


BHE 

T-2FB1 

2FBS 

Ed 

FF 

2F 

LDR 

Ì2FFF 

2FBB 

DO 

OD 


BNE 

^2FCR 

2FBD 

RD 

14 

FF 

LDR 

t FF 14 

2FC6 

49 

OR 


E OR 

#»08 

2FC2 

8D 

14 

FF 

STR 

^FF14 

2FC5 

R9 

OS 


LDR 

#*08 

2FC7 

SD 

FF 

2F 

STR 

*2FFF 

2FCR 

CE 

FF 

2F 

DEC 

*2FFF 

2FCD 

fiD 

06 

FF 

LDR 

*FF06 

2FD0 

29 

FO 


RND 

#*F0 

2FD2 

18 



CLC 


2FD3 

6D 

FF 

2F 

RDC 

*2FFF 

2 PDF 

SD 

06 

FF 

STR 

*FF06 

2FD9 

60 



RTS 


2FDR 

RD 

14 

FF 

LDR 

*FF14 

2FDD 

■:>ci 

F8 


RND 

#*F8 

XFDF 

49 

OR 


EOR 

#*08 

7FE 1 

85 

04 


STR 

*04 

. IE 3 

R9 

08 


LDfi 

#*08 

.FES 

85 

06 


STR 

*06 

. FÉ7 

RO 

00 


LDV 

#*00 

,i r< 

84 

03 


STV 

*03 

2F EB 

84 

05 


STV 

*05 

. FFEl 

B1 

05 


LDR 

< *05 :■ 

7FFF 

91 

03 


STR 

< *03 > 

7FF1 

CR 



INV 


71 F7 

DO 

F9 


BNE 

*2FED 

71 F4 

E 6 

04 


INC 

*04 

71 r i . 

E 6 

06 


INC 

*06 

711 : : 

R5 

06 


LDR 

*06 

71 1 II 

C9 

10 


CMP 

#*10 

71 II 

no 

EF 


BNE 

*2FED 

7111 ’ 

60 



RTS 



! bytn usati da questo programma sono: 

. $<’KKK : POSIZIONE in cui TED visualizza lo schermo 
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(da 0 a 7). 

•$03,$04: PUNTATORE 1 che indica l'indirizzo di 

partenza delle mappe in cui vanno trasferiti i dati. 

.$05,$06: PUNTATORE 2 che indica l'indirizzo di 

partenza delle mappe normali. 

GRAF16 e' composto da due routine: la prima fa scor-- 
rere lo schermo di una linea ogni volta che viene 

chiamata e, se necessario, cambia la pagina visualiz-> 
zata ; la seconda (che verrà' chiamata dal BASIC dopo 
aver inserito i nuovi dati nelle mappe normali), 

trasferisce i dati dalle mappe normali a quelle non 
visualizzate. 

Ecco lo schema a blocchi di GRAF16: 
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Figura 6.1 Diagramma a blocchi sottoprogramma GRAF16 
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Ecco infine la corrispondenza tra i blocchi dello 
schema e le linee del programma, riferendoci agli 
indirizzi esadecimali: 


BLOCCO 

1 : 

1 i nee 

BLOCCO 

2 : 

1 lnee 

BLOCCO 

3 : 

linee 

BLOCCO 

4 : 

linee 

BLOCCO 

5 : 

linee 

BLOCCO 

6 : 

linee 

BLOCCO 

7 : 

linee 

BLOCCO 

8 : 

linee 

BLOCCO 

9 : 

linee 

BLOCCO 

10 

: line 

BLOCCO 

1 1 

: line 


Vediamo ora come 
ne : 


2FB0+2FB6. 
2FB8-'2FBB. 
2FBD+2FC2. 
2FC5-2FC7. 
2FCA-2FCD. 
2FD0+2FD6 . 
2FD9 . 

2FDA-2FDF. 
2FE1-2FEB. 
2FED-2FFC 
2FFE . 


il BASIC gestisce 


queste due routi¬ 


ni REM GRAFI5 

10 P0KE56,47 :P0KE55,176 = CLR:TRAP500 
30 FORI=0TO78■PERDA :POKE12208+1,A = NEXT 
50 READM 

60 DIMCL<N—1>,LU<N-1>,LN*<H-1> 

70 FORI=0TOH-1 

80 READCL<I>,LU<I>,LN*<I> 

110 NEXT 

120 COLORO,1 :C0L0R4,1 :SCNCLR 
130 POKE65300,43 = SVS12250 
140 POKE65300,56 :SVS12250 
170 POKE12287,7 
175 DO 

180 FORI=0TOH-1 

190 COLOR 1, CL < I > , LUCI:': CHAR, 0,24, CHR$< 17> +LN* < I > 

210 SVS12250 

220 SVS12208 

230 F0RJ=1T07 

240 FORK=1TO60:NEXT 

250 SVS12208 

260 NEXTJ 

270 NEXTI 

280 LOOP 

500 COLORI,2,7 = POKE65286,27 = POKE65300,15 
510 PRIhT = PRINTERR*<ER >=PRINT"IN"EL = END 
1000 DATAI 20, 173,29,255,201,204,208,249 
1010 DATAI 73,255,47,208,13,173,20,255 
1020 DATR73,8,141,20,255,169,8,141 
1030 DATA255,47,206,255,47,173,6,255 
1040 DATA41,240,24,109,255,47,141,6 
1050 DATA255,96,173,20,255,41,248,73 
1060 DATA3,133,4,169,8,133,6,160 
1070 DATA©,132,3,132,5,177,5,145 
1080 DATA3,200,208,249,230,4,230,6 
1090 DATAI65,6,201,16,208,239,96 
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10000 DATA 10 
10010 DATA3,3," 
10020 DATA5,4," 
10030 DATA4,4," 
10040 DATA6,4," 
10050 DATA9,5," 
10060 DATA13..4," 
10070 DATA3,5," 
10080 DATAI,1,"" 
10090 DATA1,1,"" 
10100 DATAI,!,"" 


COMMENTO A GRAFI 5 

,10: pone la fine della memoria In 12208 ($2FB0) do¬ 
ve inizia il programma in linguaggio macchina, in 
$3000 inizia la prima mappa attributi, in $3400 la 
prima mappa video, in $3800 inizia la seconda mappa 
attributi, in $3C00 la seconda mappa video. Indica che 
la routine di errore parte dalla linea 500. 

.30: pone in memoria GRAF16. 

.50: legge il numero di stringhe che dovrà' visualiz¬ 
zare. 

.60: dimensiona 3 vettori di tanti elementi quante 
sono le stringhe: per ogni stringa memorizza il colo¬ 
re, la luminosità' e la stringa stessa. 

.70/110: riempe i vettori. 

.120: schermo e sfondo neri, pulisce lo schermo. 

.130: mappa attributi in $3000 (e quindi mappa video 
in $3400); salta alla routine che trasferisce nell'al¬ 
tra coppia il contenuto delle mappe normali (che al 
momento sono vuote). 

.140: mappa attributi in $3800 (e quindi mappa video 
in $3000); salta alla stessa routine pulendo anche 
l'altra coppia di mappe. 

.170: pone 7 nel byte che indica la posizione del 
video alla routine in linguaggio macchina ($2FFF). 

.175: inizializza un ciclo senza fine che si chiude 
in 280: per uscire dal programma basta premere 
RUN/ST0P. 

.180: per ogni stinga da visulizzare esegue da qui a 
260. 

.190: seleziona colore e luminosità' richiesti; stam¬ 
pa la stringa sulla mappa normale provocando uno 
scorrimento (con CHR$(17)). 

.210: salta alla routine che cambia mappe e trasfe¬ 
risce le mappe normali nelle mappe non visualizzate. 

.220: salta alla routine che provoca lo scorrimento 
fine. 


^ ^ ì4t ^ ** 

$ 'M " 

* COMMODORE 16 *" 

$ £ Il 

*11 SMOOTH SCROLLINO 
* *" 
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.230/260: provoca i 7 rimanenti scorrimenti fini. 

.270: prossima stringa. 

.280: chiude il ciclo aperto in 175. 

.500/510: abbiamo programmato una routine di errore 
perche' il SISTEMA OPERATIVO segnala l'errore sulla 
mappa normale; la routine di errore, invece, lo segna-» 
la dopo aver riportato le mappe in posizione normale e 
aver riportato lo schermo a 25 colonne, e arresta il 
programma. 

.1000/1090: dati relativi alla routine GRAF16. 

.10000: le 10 stringhe da visualizzare. 

.10010/10100: colori, luminosità' e caratteri di ogni 
stringa. 

Puoi ovviamente cambiare le ultime 11 linee del 
programma e far scorrere il messaggio che prefe¬ 
risci. 


6.9 RIEPILOGO 

In questo paragrafo abbiamo riassunto le istruzioni 
necessarie per sfruttare le capacita' di TED che hai 
visto in questo capitolo: quando ti sarai impadronito 
delle tecniche che ti permettono di sfruttare in pie¬ 
no TED, ti basterà' consultare queste pagine per 
ricordarti quali sono i registri che ti interessano. 


- MAPPA VIDEO E ATTRIBUTI: per cambiare l'indirizzo di 
partenza della mappa video e attributi devi dare le 
istruzioni : 


P0KE 65300,N 

oppure 

LDA #$N 
STA $FF1 A 

dove M*256 e' l'indirizzo del primo byte della nuo¬ 
va mappa attributi, la nuova mappa video sara' 
automaticamente posta 102A byte oltre. N deve esse¬ 
re un numero divisibile per 8: se non lo e' TED 
considera < N/8 ) * 8 (cioè* non considera i bit 2-0). 
Normalmente la mappa attributi e' posta in $0800 e 
quindi il numero N necessario a riportare il calco¬ 
latore nello stato normale e' 8. 
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DESCRIZIONE DEI CARATTERI: per cambiare l'indirizzo 
del primo byte di descrizione dei caratteri devi da-» 
re le istruzioni: 

POKE 65298 ,PEEK(65298) AND 251 

POKE 65299,(PEEKC65299) AND 3) + N 

oppure 

LDA $FF12 
AND #$FB 
STA $FF12 
LDA $FF 1 3 
AND #$03 
ORA #$N 
STA $FF13 


Dove N*256 e' l'indirizzo desiderato e N e' divisi¬ 
bile per 4 (pena il malfunzionamento del sistema). 
Per riportare la mappa del caratteri in ROM devi 
sostituire l'operazione AND 251 (AND #$FB) con OR 4 
(ORA #$04) e N vale 208 (#$D0) 


CARATTERI A SFONDO PROGRAMMABILE: 
do sfondo programmabile devi dare 


per entrare in mo¬ 
le istruzioni: 


POKE 65286,PEEK(65286) OR 64 
POKE 65302,A 
POKE 65303,B 
POKE 65304,C 


oppure 

LDA $FF06 
ORA #$40 
STA $FF06 
LDA #$A 
STA $FF16 
LDA #$B 
STA $FF17 
LDA #$C 
STA $FF18 
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dove A, B e C indicano i colori e le luminosità' 
dello sfondo 1, 2 e 3 rispettivamente e sono codifi¬ 
cati come L*16+K-1, con L luminosità' e K colore. 

Per uscire dal modo sfondo programmabile devi dare 
le istruzioni: 

POKE 65286,PEEK(65286) AND 191 

oppure 

LDA $FF06 
AND #$BF 
STA $FF06 


MODO MULTICOLORE: per entrare in modo multicolore 
devi dare le istruzioni: 

POKE 65287 ,PEEK( 65287 ) OR 16 
COLORI,Al,A2 
COLOR 3■B1 ,B2 

POKE 65303 ,CI *1 6 + C2--1 

oppure 

LDA $FF07 

ORA #$10 

STA $FF07 

LDA #$B1* 16 + B2-1 

STA $FF16 

LDA #$C1 * 16 + C2-1 

STA $FF17 

dove Al, B1 e CI sono i codici delle luminosità' 
desiderate e A2, B2 e C2 i codici dei colori deside-> 
rati. Nelle routine in linguaggio macchina, devi 
porre il numero A1*l6+A2-1 nel byte della mappa 
degli attributi corrispondente al carattere che vuoi 
colorare cosi'. Ricorda che A2 deve essere maggiore 
di 7 altrimenti il carattere verrà' visualizzato in 
modo alta risoluzione. 


ANNULAMENTO DELLO SCHERMO: per ottenere l'annul-- 
lamento dello schermo ti basta dare le istruzioni: 

POKE 65286,PEEK(65286) AND 239 
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oppure 


per tornare 

allo 

LDA $FF06 

AND #$EF 

STA $FF06 

schermo normale basta 

cambiare 

1'operazione 

AND 

239 (AND #$EF ) con OR 

6 (ORA 
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CAPITOLO 7 


TECNICHE DI PROGRAMMAZIONE 
E ESEMPI 


7.1 INTRODUZIONE 

In questo capitolo riportiamo alcuni esempi di pro¬ 
grammi, discutendone l'impostazione e commentandoli. 


7.2 DIVISIONE PAROLE IN SILLABE 

Alcuni programmi di ELABORAZIONE TESTI (Word Proces¬ 
sing) producono dei file di testo di tipo sequenziale 
ASCII, che contengono il testo, ma non provvedono 
automaticamente alla separazione delle parole in sil¬ 
labe con il trattino fantasma, da utilizzare eventuali 
mente in fase di stampa per andare a capo. 

Abbiamo preparato il programma HYPHEN (trattino in 
inglese) per ottenere di leggere un file di testo, 
prodotto dal programma EASY SCRIPT del COMMODORE 64, e 
produrre un file di testo modificato, con altro nome e 
con le parole divise in due parti da un trattino 
fantasma (SHIFT-0), riconosciuto come tale nella fase 
di stampa da EASY SCRIPT. 

Per separare in due parti le parole abbiamo usato un 
algoritmo empirico. Abbiamo osservato che e' possi¬ 
bile dividere le lettere che compongono le parole in 
tre categorie: 

- Vocali o mute-1iquide-nasal i (a,e,i,o,u,h,1,m,n,r ) 

- Consonanti mute-1iquide-nasali (h,l,m,n,r) 

- Consonanti dure (b,c,d,f,g,p,q,s,t,v,z) 

Abbiamo creato tre vettori di variabili numeriche che 
consideriamo booleane: LL, VV, CC. Ognuno di questi 3 
vettori ha 255 elementi, uno per ogni codice ASCII. Il 
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vettore VV indica quali lettere sono VOCALI o LIQUIDE: 
VV(65), ad esempio, viene posto a vero (-1), perche* 
la lettera A, che ha codice ASCII 65, e' vocale. 
Ugualmente il vettore LL indica quali lettere sono 
MUTE-LIQUIDE-NASALI, e il vettore CC indica le let¬ 
tere che sono consonanti dure. In conseguenza gli 
elementi dei 3 vettori contengono o 0 o -1. 

Per effettuare la separazione in sillabe osserviamo un 
gruppo di tre lettere e poniamo la divisione tra il 
primo e il secondo dei tre caratteri che analizziamo, 
a patto che si verifichi una delle seguenti condi¬ 
zioni : 

1- Le prime due lettere sono uguali e sono conso¬ 
nanti (liquide-nasali o dure): e' il caso della dop¬ 
pia. 

2- Non separiamo se la prima lettera e* S: dopo la S 
non si separa, se non per la doppia, già* consi¬ 
derata . 

3- Vocale o liquida - S - qualunque lettera esclusa S 

i|- Vocale o liquida - consonante dura - vocale o 

liquida 


5- Vocale o liquida - liquida - vocale 


I REM HVPHEN 

3 SH4="-"‘REM TRATTINO FANTASMA 
5 REM VARIABILI DI LAVORO 
7 DIMLL <255>,VV<255>,CC<255> 

9 DI NAT < 3 > , L < 3 } , V < 3 ;■ , C13 > 

II F ORI = 1T05 = READA4 = VV<ASC <A* >>=-1=NENTI 
13 F0RI=6T010‘READA4:VV<ASC<A4>>=-l 

15 LL< ASC < A4- > > =-1 » NE NT I 

17 FOR1 = 11T021 READA4 = CC<ASC C A4 >>=-1 ‘NENTI 
19 REM RICHIESTA NOMI FILE INPUT E OUTPUT 
21 INPUT"FILE INPUT";F14 
23 I HF'IJT "FILE OUTPUT " ; F04 
25 REM APERTURA FILE 

27 0PEN2,3,2,FI4=0PEN3,8,3,F04+",S,W" 

29 REM CICLO DI LETTURA DI UNA PAROLA 
31 A4="" 

33 OET#2,B4:RS=ST 

35 IFB4-0 " " ANDB40CHR4< 13 >THENA4=A4+B4 ‘ G0T047 
37 G0SUB53 ; REM VA H METTERE TRATTINO 
39 IFRS=0THENPRINT#3,B4;=PRINTB4: G0T031 
41 REM CHIUDE SE FINITO FILE DI INPUT 
43 CL0SE3=CL0SE2 
45 END 

47 IFRS=0THEN33 
49 G0T037 

51 REM ROUTINE CHE DIVIDE CON TRATTINO 
53 IFLEN < A4 ;■ C4THENPRI NT A4=PRINT#3,A4; ‘RETURN 
55 FOR 1 = 1 TOLEN C A4 ;■ -2 
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57 a$<: i ::<=niD$<fì$, i, 1 > 

59 A* C 2 =M IDt-CRt, 1 + 1, 1 !:■ 

61 A*C3 >=MID$< Ht ,1+2,1> 

63 PRINTR*C 1 > ; : FRINT#3, fl*< 1 > ; = GOSUB91 

65 IFA* C 1>=A*<2 > RHDHOT<V<1> RNDNOTL<1>> THEH77 

67 IFA*<1>="S"THEN79 

69 IF V < 1 ':> RNDA* < 2 > = " S " RNDft* < 3 <> " S " THEN77 
71 IFV <1>RNDC<2 > RNDV< 3>THEN77 
73 IFVC1>RNDL<2>AND<V<3 >RNDNOTL<3> >THEN77 
75 G0T079 

77 IFI>LEN<Ri>/2.5THEN83 
73 NEXTI :PRINTfìi<2 >; Ri<3 >; 

S1 PRINT #3,RiC 2 >Ri<3 >; = RETURN 
33 PRINT" —"; ; PRINT #3,SHi; 

35 PR INTMIDi<Ri, I +1,254 ;• ; 

37 PRINT#3, m0i<fìi, 1 + 1,254); ; RETURN 
39 REM ROUTINE CHE PRELEVA 3 CARATTERI 
31 FORJ=1T03 
93 C < J > =CC C RSC < Ri < J > > > 

95 VC J>=VV<RSCCRt(J))> 

97 L < J =LL < RSC < Ri < J > > > 

99 NEXT ; RETURN 

101 REM VOCALI E CONSONANTI 

103 REM VOCALI 

105 DATA fl, E, 1,0, IJ 

107 REM MUTE, LIQUIDE E NASALI <LIQUIDE> 

109 DATA H,L,M,N,R 

111 REM LABIALI, DENTALI, GUTTURALI (CONSONANTI> 
113 DATA B,C,D,F,G,P,Q,S,T,V,Z 


COMMENTO A HYPHEN 

.3: La variabile SH$ contiene 11 carattere da porre 
nel file di testo nei punti dove si può’ dividere una 
parola. Il carattere tra virgolette e' SHIFT-@ per il 
programma EASY SCRIPT del COMMODORE 64. 

.5/17: Dimensiona e riempie i tre vettori booleani. 

.19/27: Chiede i nomi dei files e li apre, uno in 
lettura, l'altro in scrittura. 

.29/39 e 47/49: Riceve in A$ una parola dal file in 
ingresso e la passa al 3ottoprogramma in 53. Queste 
linee vengono ripetute fino alla fine del file di 
ingresso. 

.41/45: Chiude 1 file e termina 

.53: Se A$ ha meno di 4 caratteri non viene sepa¬ 
rata . 


.55/99: Ciclo che viene eseguito 
carattere di A$, meno che per gli 
ter 1. 

.65: Verifica condizione 1. 

.67: Verifica condizione 2. 

.69: Verifica condizione 3. 

.71: Verifica condizione 4. 


una volta per ogni 
ultimi due carat- 
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.73: Verifica condizione 5. 

.75: Se non ai e' verificata nessuna delle condi¬ 
zioni, la parola non viene separata con il trattino 
fantasma. 

.77: Se e' stata superata la meta' della parola, vie¬ 
ne aggiunto nel file SH$ (il trattino fantasma) e 
stampato sul video un trattino. Una parola può' conte¬ 
nere un solo trattino fantasma. Puoi cambiare questa 
linea e porre tutti i trattini fantasma possibili nel¬ 
la parola, se il tuo programma di stampa non si ferma 
al primo, come EASX SCRIPT del COMMODORE 64. 

.87: Chiude il ciclo iniziato a 55 e ritorna dal 
sottoprogramma alla fine del ciclo. 

.91/99: Aggiorna i valori di tre vettori booleani 
temporanei in funzione dei tre caratteri da analiz¬ 
zare, ponendo, ad esempio, a C(2)--1 se il secondo dei 
tre caratteri in questione e' consonante dura. 

.101/113: Linee DATA che contengono le lettere. Non 
scambiare ne' l'ordine delle linee ne' dei carat¬ 
teri . 


7.3 DISEGNO DEI CARATTERI 

Alle pagine 240 e 241, Figura B.4, del primo volume 
sono riportati i caratteri ingranditi, facendo 
corrispondere un asterisco ad ogni puntino del carat¬ 
tere, cioè' ad ogni bit 1 della sua descrizione. 

La figura e' stampata dal programma DISECAR, che 
riportiamo in questo paragrafo. 

Il problema consiste nell'andare a prelevare dalla ROM 
la descrizione di un carattere che ha un determinato 
codice, espresso in D/CODE. Il COMMODORE 16 ha 
memorizzate in ROM le descrizioni dei 128 caratteri 
del set maiuscolo/grafico e dei 128 caratteri del set 
minuscolo/maiuscolo. Queste descrizioni occupano in 
tutto 2K byte (2048 byte). I caratteri in campo inver¬ 
so si ottengono scambiando i bit 0 con bit 1 e 
viceversa. La difficolta' consiste nel fatto che non 
si può' accedere dal BASIC alla ROM che contiene le 
descrizioni, che si trovano dal byte 53248 (D000H) al 
byte 55295 (D7FFH). Per questa ragione, prima di cari¬ 
care in memoria il programma DISECAR, si devono 
trasferire dalla ROM in RAM le descrizioni dei carat¬ 
teri, con il comando MONITOR e la funzione T di 
trasferimento. Per lavorare si deve procedere cosi': 
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.1) eseguire in modo immediato: 

POKE 55,0:POKE 56,55 

per abbassare il TOP della memoria dedicata al 
BASIC a 111079 (36FFH). 

.2) eseguire in modo immediato: 

MONITOR 

T D000 D7FF 3700 

che trasferisce i 2048 byte che stanno da D000 a 
D7FF in quelli che iniziano in 3700 (che corrisponde 
all'indirizzo decimale 14080). L'ultimo byte occupato 
risulta quello di indirizzo 16127 (3EFFH). 

.3) caricare ed eseguire il programma DISECAR. 

Il programma chiede se vuoi ottenere il risultato su 
video o stampante, poi chiede il set di caratteri che 
desideri e il codice del carattere in D/CODE, tra 0 e 
255. Se il codice supera 127, esso viene diminuito di 
128 e viene posto a 1 lo switch SW, per ricordare che 
il carattere deve essere in campo inverso. 

Viene poi calcolato il valore del puntatore per prele¬ 
vare gli 8 byte della descrizione del carattere. Vie¬ 
ne stampata un'intestazione e poi il carattere ingran¬ 
dito usando degli asterischi, il valore binario e 
decimale di ogni byte della descrizione. Se SW-1 ven¬ 
gono invertiti i bit della descrizione per ottenere il 
campo inverso. 

Il programma termina dopo aver stampato un risultato, 
per proseguire devi scrivere ancora RUN. 

Ricorda dopo aver eseguito il programma di rimettere 
ai valore usuale i byte 55 e 56, oppure di eseguire un 
RESET. 


O REM DISECRR 

1 INPUT"ZWRISULTRTI SU STAMPANTE? <S/N> ";R* 

2 FRINT•IFR*="H"THEN6 

3 UPEN4,4PRINT44 

4 PRINT44,"♦♦♦STAMPA IMMAGINE CARATTERI**#" 
FRI NT #4 

r. U« "" PRINT"QUALE SET VUOI USARE ; " 

,• PRINT" 1 PER. SET MRIUSCOLO/GRAFICO" 
FRINÌ" 2 PER SET MAIUSCOLO/MIMUSCOLO" 

•I INPUT"MM OPZIONE ";D*=IFD*=""THEN100 
10 IFDf <>" 1 "ANDD*0"2"THENPRINT"^TT'^ ,, : G0T09 
14 M*-“ SET MAIUSCOLO/MIMUSCOLO" 

13 IFD*="1"THENM*=" SET MRIUSCOLO/GRAFICO" 

16 PRINT"««SCRIVI IL CODICE DEL CARATTERE" 

1? PRINT"IN O/CODE";:SW=0 IMPUTO PRINT 

18 IFD<0ORD>255THENPRINT n : 111111" : GOTO 14 

19 D1 =D : IFDM 27THEND=D-128 = SN= 1 

21 A»14O80+ <VAL < 0$ >- 1>#1024 

22 F0RK=0T07‘ D <K > =PEEK< A+D*8+K>:NEXTK 
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rf in C£> N (0 (Ti O »h C\J co ■'tuo r - OO 1 T 1 O h 0J CO t HO Q 
Cd cj C'J CO CO CO CO co CO CO coro CO CO CO CO o- Tt T O- o- IjO 


PRI NT " rMMMVCODE= " DM* : PRI NT 

PRINT"CARATTERE CORRISP. AGLI 8 BVTE8 ; " 

PRINT 

PRINT"CARATTERE VRL. BINRRIO VRL. DEC." 
PRINT PRINT:IFR*="N"THEH34 
PRINT#4,"D/CODE = “; DI;M$ = PRINT#4 
PRINT#4,"CARATTERE CORRISP. RGLI 8 BVTES= 
PRINT#4 

PRIHT#4," CRRRTTERE VRL. BINRRIO "; 
PRINT#4.. "VAL. DEC. " ;RRINT#4 
FORK=0TO7 ^ D$ < K > = ""= E* < K > = " " • B=D < K > 

FQR J=0TO7 : IFINT i. B/£ T< 7—J > >=0THEH39 
I FSW= 1THEND* < K > =D$ OO + " " : E# < K > =E$ C K > + " 0 " 
D* C K >=D$< K > + "*"= E* < K =E$< K > + " 1 " 

B=B—2T C7—J> ^ G0TD41 

I FSW= 1THEND$ < K ó =D* < K = E# < K > =E* C K > + " 1 " 

DT <: K > =D$ OO + " " = ET < K > =E* < K ;■ + " 0 " 


NEXTJ:NEXTK=FORK=0TO7 

PR INTQ*CK) ; " " ; ET <K> ; " 

IFR*="N"THEN50 

PRINT#4■" ";D*<K>;" 

PR I NT#4, E# ( K :> ; " " ; D c K > 


NEXTK 
100 IFR$= 
110 STOP 


"S"THENPRINT#4=CL0SE4 


; D < K > 


tl 


=GOT038 
G0T041 


7.*) CONTATORI 


Ci siamo proposti di estrarre un gruppo di numeri a 
caso, compresi nell'intervallo 0-14000, e di calco¬ 


lare le frequenze con 
dei li) intervalli che 
0 - 1000 
2001 - 3000 
i)001- 5000 
6001- 7000 
8001- 9000 
10001-11000 
12001-13000 


le quali i numeri 
seguono : 

1001- 2000 
3001- 4000 
5001- 6000 
7001- 8000 
9001-10000 
11001-12000 
13001-14000 


cadono in uno 


Il programma all'inizio chiede quanti numeri a caso 
vuoi estrarre e quale argomento iniziale vuoi usare 
per la funzione RND. Infatti dall'argomento iniziale 
dipende la sequenza: 

.l'argomento negativo fa partire la sequenza di 
estrazione da un punto determinato; se usi lo stesso 
numero negativo ottiene sempre gli stessi numeri ogni 
volta che fai girare il programma; 

.l'argomento nullo fa prelevare il seme per defi¬ 
nire l'inizio delle estrazioni dal contatore TI, quin¬ 
di questo dipende dal tempo trascorso dall'accensione 
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del calcolatore; 

.l'argomento positivo fa proseguire l'estrazione 
dalla sequenza già' in corso. 

Il programma usa il seme da te fornito per eseguire 
un'estrazione iniziale fuori ciclo, poi prosegue con 
argomento positivo. Se dai un seme positivo e usi il 
programma subito dopo l'accensione ottieni sempre gli 
stessi risultati, infatti il seme iniziale e' sempre 
uguale. I numeri a caso estratti sono compresi tra 0 e 
1; viene eseguito un semplice calcolo per ridurli 
nell'intervallo 0-14000. Abbiamo scelto 1 4000 come 
limite, e 14 intervalli di 1000 valori, per poter 
visualizzare in un solo quadro video i risultati. 

Il programma conta in un contatore generale 1 numeri 
estratti e calcola in tempo reale le frequenze andan¬ 
do ad aggiornare 1 14 contatori. 

Il quadro video presenta in 14 caselle i limiti 
dell'intervallo, evidenziandoli in campo inverso, e 
sotto ad ogni casella il valore della relativa 
frequenza. 

Può' presentare un certo interesse vedere come andia¬ 
mo a scrivere in posizioni predeterminate del video 
servendoci dell'istruzione CHAR in modo testo. Nel 
programma abbiamo introdotto in linee DATA le "coor¬ 
dinate" di riga e colonna dove vogliamo scrivere; le 
memorizziamo in due vettori e usiamo la coppia di 
coordinate che ci vuole per ogni contatore nell'istru¬ 
zione CHAR. Ti facciamo notare che quando usi l'istru¬ 
zione CHAR in modo testo non risulta valido il para¬ 
metro "modo" (l'ultimo) che, invece, in modo grafico 
e' attivo e serve per ottenere il campo diretto o 
Inverso. Noi per poter stampare in campo inverso 
dobbiamo usare i relativi caratteri di controllo nel¬ 
la stringa di stampa. 

Per poterti spostare sul video puoi ricorrere alla 
CHAR, oppure usare i caratteri di controllo del cur¬ 
sore e le funzioni TAB e SPC. 


1 REM CONTATORI 


3 S$=" 

5 I$="3":0$="5" 

7 REM DESCRIZIONE CONTATORI 
m n« rw " l~i— i lacicv . » i 


DATA " 

0— 

1000" 

' 1001- 

2000" 

11 DATA 

" 20O1— 

3000" 

" 3001— 

4000 

13 DATA 

" 4001 — 

5000" 

" 5001— 

6000 

15 DATA 

" 6001 — 

7000" 

" 7001— 

3000 

17 DATA 

" 3001 — 

3000 " 

" 9001— 

1 0000 

1.3 DATA 

" 10001 — 

11000" 

"11001- 

1 2000 

21 DATA 

" 1300 L. 

12000" 

"13001— 

1 4000 
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1,8,1 

8,2 

1 

11. 

1,11 

17,21 

20, 

1 

2© 

21 

1,9, 1 

9,2 

1 

12. 

1 , 12 

18,21 

21, 

1 

21 

21 


R COSO VUOI' 


R ORSO" 


23 REM LIMITI RIPRRTIZIONE 

25 DRTR 13001,12001,11001,10001,9001,8001,7001 
27 DRTR fc'001,5001,4001,3O01,2001,1OD1 
29 REM POSIZIONI STRMPR 
31 DRTR 2,1,2,21,5,1,5,21. 

33 DRTR 14,1,14,21,17,1. 

35 DRTR 3,1,3,21,6,1,6,2 
37 DRTR 15,1,15,21,18, 1. 

39 REM CORICAMENTO MOTRICI 
41 DIMX<14 >,V<14 >,Z<14>,N < 14 > 

43 RESTORE31 

45 FORK= 1 TOl 4 : RERDX<K> , VOO = NEXTK 
47 REST0RE35 

49 FORK=1TQ14 ! REROZ<K3,M < K>:NEXTK 
51 REM INI2IRLIZZRZIONE CONTATORI 
53 DIMC <14 > ; C=0 
55 FORK=1TO14 ; CCK >=0 = NEXTK 
57 PRINT"3WMWWSCRIVI QUANTI NUMERI 
59 PRINT"ESTRARRE TRA 0 E 14000" 

61 INPUT " WQIJRNTI " ; R 

63 PRINT"MBESTRAZIONE DI " ; R" NIJMERI 
65 INPUT"«SEME PER RND : ";S 

67 PRINT"«SEME PER RND : ";S 

69 PRINT"«FREMI UN TASTO PER CONTINUARE" 

71 GETKEVfl» 

73 REM PREPARAZIONE QUADRO 
75 REST0RE9 : PRI NT "73" 

77 FORK=1TO14 :READfi* 

79 X=X<:K> > V=V<K> = Z=Z<K> « W=W<K> 

81 CHRP., V, X, I $+R$+D$ 

83 C$=S$+STR$< C < K > > 

85 CHRR, W, Z, RIGHT*<C*, 12.'' 

87 NEXTK 

89 CHRR,2,24,"CONTATORE GENERALE ; " 

91 REM ESTRAZIONE NUMERO 
93 N=RND<S> 

95 FORJ=1TOR : N=RND<1> 

97 N=1+INT<N#14000> 

99 REM CERCR INTERVALLO 
101 REST0RE25 
103 FORK=14T02STEP—1 
105 RERDR 

107 IFN>=RTHENC<K> =C<K>+l>X=ZCK> 1 V=WCK>: GOTO117 
109 NEXTK 

111 C<1> =C <1> + l:X=Z<1>:V=W<1>=K=1:GOTOl17 
113 NEXTJ 
115 GOTOl15 

117 REM STAMPA CONTATORE 
119 c$=s$+str* <: c <:k :• > 

121 C=C+1 

123 CHRR,V,X,RIGHT♦ < C*,12> 

125 C$=S*+STR*<C> 

127 CHAR,21,24,RIGHT*<C*,12> 

129 GOTOl13 


COMMENTO A CONTATORI 
.3/5: definizione S$ con 12 spazi, 
tere di controllo RVS ON, D$ con 
controllo RVS OFF. 


1$ con il carat- 
il carattere di 
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.7/21: linee DATA con le descrizioni dei 1A conta- 
tor 1. 

.23/27: linee DATA con i limiti per il controllo del¬ 
le frequenze; tali limiti sono solo 13 e in ordine 
decrescente, infatti i controlli si fanno in cascata 
partendo dal valore piu' alto. 

.29/37: linee DATA con i valori delle coordinate per 
le posizioni video delle descrizioni dei contatori e 
dei contatori. 

•39/M9: caricamento dei dati nelle relative matri- 
c i. 

.51/551 inizializzazione contatori delle frequenze. 

.57/71: richiesta dati iniziali. 

.73/89: preparazione quadro video iniziale. 

.91/113: ciclo di estrazione dei numeri e aggior¬ 
namento contatori. 

.115: ferma il programma in modo che anche premendo 
un tasto non si sciupa il quadro; per uscire premi 
STOP . 

.117/129: stampa del contatore che e* stato aggior¬ 
nato. 


7.5 GRAFICO TRIDIMENSIONALE 

li programma 3DP, nonostante sia scritto comple¬ 
tamente in BASIC e sia breve, e' un programma 
abbastanza complesso e da’ risultati molto spetta- 
uolari; esso infatti disegna funzioni reali di due 
variabili reali, disegna cioè' funzioni tridimen¬ 
sionali. 

11 programma disegna funzioni definite sulla parte di 
plano -2<X<2, -2<Y<2 che ammettano valori tra -lei. 
.'la vuoi vedere l'andamento di una funzione su un domi¬ 
nio piu' ampio, ti conviene modificare la linea 500, 
tri uul e' definita la funzione. Ad esempio, se vuoi 
vadara la funzione f(X,Y) su un dominio -10<X<10, 
* 10<7<30 , ti basterà' impostare la funzione 
7 ( X*5,Y* 10+10 )/M dove M e' il massimo valore che 
A ll.'J ( f ( X • 5 , Y * 1 0 + 1 0 ) ) assume nell'intervallo -2<X<2, 
-2<Y<2 o (che e' la stessa cosa) che la funzione 
f(X,Y) assume nell'intervallo -10<X<10, -10<Y<30. Il 

programma disegna la funzione partendo dall'os- 
aorvatore e procedendo verso "l'interno del monitor"; 
par sapere se il punto che ha disegnato e' nascosto 
dal disegno precedentemente fatto, controlla se il 


279 



punto che deve disegnare sullo schermo non e' compre¬ 
so tra il punto piu' alto e il piu' basso di una stes¬ 
sa colonna di punti. Per ottenere questo avremmo biso¬ 
gno di due vettori di 320 elementi ciascuno (1 per 
colonna di punti) in cui potremmo mettere rispetti¬ 
vamente il punto piu' alto e il punto piu' basso dise¬ 
gnato su una colonna. Poiché' la memoria non espansa 
del COMMODORE 16 non permette di dimensionare tali 
vettori (che occuperebbero 321*1 byte) ci siamo riser¬ 
vati 640 byte di memoria in cui poniamo direttamente i 
valori che ci interessano (tali valori vanno da 0 a 
199 quindi possono essere contenuti in un byte). Pri¬ 
ma di presentare il listato del programma diamo anco¬ 
ra un'informazione che può’ aiutare a comprenderlo: il 
COMMODORE 16 calcola il valore della funzione 
tridimensionale dato un punto del piano: tale valore 
viene posto nella variabile Z3 e le coordinate del 
punto sono X3 e Y3. X3, Y3 e Z3 sono le coordinate di 



I 

I 


Figura 7.1 Rappresentazione in assonometria 
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un punto nello spazio. Il calcolatore dovrà' ora dise¬ 
gnare un punto su un piano (il video) in modo che dia 
l’impressione della profondità'. Per far ciò' usiamo 
l'assonometria, calcoliamo cioè' la coordinata verti¬ 
cale del piano (Y2) come Z3+X3/2 e la coordinata 
orizzontale del piano come (X2) come Y2+X3/2 (vedi 
Figura 7.1). 


0 REM 3DP 

1Q P0KE56 > 21 ; P0KE55,128;CLR =TRRP180 
20 FORI =0TO319 ■■ POKE5504+1,0 = P0KE5824+1,199. NEXT 
30 COLORO.. 1 ^ COLORI, 2, 7 C0L0R4, 1 
40 GRflPHICl,1 

T.0 X3=—2 = F0RV3=—2T02STEP. 02 : GOSUB500 = NEXT 
66 SF-.3 

70 F0RX3=—2T02STEP.02 = V3=-2 
80 GOSUB500 V3=2 = GOSUB500 
90 RX=X3—INT CX3/SP>*SP 
100 F0RY3=-2+RXT02STEPSP 
110 GOSUB500 
120 NEXTV3 

130 F0RV3=2-RXT0—2STEP—SP 
140 GOSUB50© 

150 NEXTV3 : NEXTX3 

160 X3=2^ F0RV3=—2T02STEP.02 *GOSUB500 = NEXT 
170 GETKEVR* 

180 GRRPHIC0 : END 
*500 23=81N C X3*V3 > 

r. 10 X2= 160+ <: V3+X3/2 >*49 • V2= 100+ < 23+X3X2>*49 
•520 IFV2>PEEK<5504+X2 >THENPOKE5504+X2,V2 = GOTO550 
■530 IFV2CPEEK<5824+X2>THENP0KE5S24+X2,V2=GOTO560 
"■40 RETURN 

-.“.O IFV2CPEEK <5824+X2 > THENP0KE5824+X2, V2 
*560 DRRW . X2, 199-V2 = RETURN 


COMMENTO A 3DP 

.10: abbassa il top della memoria per creare lo spa¬ 
zio ai 640 byte che ci servono. 

.20: pone a 0 il vettore dei massimi e a 199 quello 
do 1 minimi. 

.j0: schermo e bordo neri, scritte bianche. 

.40: entra in modo grafico. 

.60: calcola e disegna in assonometria (appog¬ 
giandosi alla routine in 500) il valore della funzio-* 
ne sul segmento X--2, ->2<Y<2, cioè' il segmento piu' 
vlolno all'osservatore. 

.60: pone il passo del reticolo a 0,3* Aumentando il 
valore della variabile SP si otterrà' un reticolo a 
maglie piu' larghe, diminuendolo piu' strette. 
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.70/80: inizializza un ciclo che incrementa la X 
(l'asse che va dall'osservatore verso lo schermo). 
Quindi calcola il valore della funzione per Y--2 e 
Y-2, cioè' ai lati del dominio. 

.90/100: inizializza un ciclo che incrementa la Y con 
passo SP, partendo da un valore tale per cui il reti¬ 
colo sara' diagonale rispetto agli assi. 

.110: calcola e disegna la funzione. 

.120: chiude il ciclo della Y. 

.130/1H0: esegue lo stesso lavoro per i valori della 
Y simmetrici, per disegnare le diagonali perpen¬ 
dicolari alle prime. 

.150: chiude i cicli della Y e della X. 

.160: come la linea 50 solo che il segmento e’ X-2, 
-2<Y<2, cioè' il segmento piu' lontano dall'os¬ 
servatore . 

.170: attende la pressione di un tasto. 

.180: il programma salta a questa linea anche se e' 
stato commesso un errore o se e' stato premuto il 
tasto STOP. Torna al modo testo e ferma il program¬ 
ma . 

.500: calcola il valore della funzione tridimen¬ 
sionale. 

.510: calcola i valori di X2 e Y2. 

.520: se il valore massimo della Y su quella colonna 
e' minore del valore appena calcolato pone il valore 
massimo della colonna al valore appena calcolato e 
salta a 550. 

.530: se il valore minimo della Y su quella colonna 
e* maggiore del valore appena calcolato pone il valo¬ 
re minimo della colonna al valore appena calcolato e 
salta a 560. 

.5*10: se il valore della Y2 cade tra massimo e mini¬ 
mo, il punto e' nascosto dalla funzione preceden¬ 
temente disegnata e quindi non deve essere disegna¬ 
to . 

.550: il programma passa di qui 3e il valore della Y 
e' maggiore del valore massimo su quella colonna. 
Supera l’IF se e' anche piu' piccolo del valore mini¬ 
mo, cioè' se e' il primo punto di quella colonna. In 
tal caso pone anche il minimo uguale al valore attua¬ 
le (il massimo era già' stato sistemato nella linea 
520 ). 

.560: disegna il punto e torna. 


Segue nella Figura 7.2 il risultato del programma 3DP, 
ottenuto con il programma VIDE0GRAF. 
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Figura 7.2 Grafico della funzione Z3-SIN(X3*Y3) 


Prova a sostituire alla linea 500 le seguenti linee: 

Z3-SIN(Y3*2) 

Z3-SIN(X3«X3+X3**3) 

Z3-(X3*X3+Y3*X3)*(X3*X3+X3*X3)/32-1 



Figura 7.3 Grafico della funzione Z3-SIN(Y3*2) 
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Figura 7.4 Grafico della funzione Z3-SIN(X3*X3+Y3*Y3) 



Figura 7.5 Grafico della funzione 

Z3«(X3*X3+X3*X3)*(X3*X3 + X3*X3)/32-1 


Nelle Figure 7.3. 7.4 e 7.5 sono riportati i risul¬ 
tati ottenuti modificando la linea 500. 
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7.6 UTILIZZO INTERRUPT 


Il programma INTERRUPT mostra come 3ia possibile, 
modificando opportunamente la routine di interrupt, 
fare svolgere al COMMODORE 16 una funzione parti¬ 
colare "mentre" svolge una qualunque attività* nor¬ 
male (EDITOR o esecuzione di un programma). Questo 
programma, infatti, fa muovere un piccolo aeroplano 
sulla scritta "INTERRUPT MODIFICATO" che viene posta 
sulla prima linea dello schermo, mentre il calcola¬ 
tore e' pronto a caricare e eseguire programmi, fare 
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calcoli e tutto ciò' che può' fare normalmente. Per 
realizzare il nostro scopo "intercettiamo" la routine 
di interrupt, facciamo le operazioni necessarie per 
muovere l'aeroplano e torniamo alla normale routine di 
interrupt. Per intercettare la routine di interrupt 
basta porre nei byte $0312, $0313 l'indirizzo di 
partenza della routine che si vuole inserire e finire 
la stessa con l'istruzione JMP $CEi12. Questo program¬ 
ma mostra anche come puoi far muovere di un punto al¬ 
la volta un carattere che si sovrappone ai caratteri 
che incontra e che li lascia inalterati una volta che 
li ha superati. Il nostro aeroplanino e' lungo 8 pun¬ 
ti: per descriverlo usiamo pero' 16 byte di memoria 
per poterlo far scorrere di un punto alla volta (vedi 
Figura 7.6). 

Per ricordare quali sono i due caratteri che sono 
coperti dalla nostra figura usiamo 2 buffer, memoriz¬ 
ziamo cioè' nel buffer di "destra" il carattere "sot¬ 
to" la punta e nel buffer di "sinistra" quello sotto 
la coda; fatti otto passi avanti riportiamo la figura 
in posizione 0 e facciamo avanzare i due caratteri di 
una posizione. A questo punto dovremo mettere dove 
prima c'era la coda il contenuto del buffer di sini¬ 
stra, nel buffer di sinistra il contenuto del buffer 
di destra e nel buffer di destra ciò' che era davanti 
alla figura. Infine, per poter sovrapporre l'immagine 
dell'aeroplanino alle immagini dei caratteri che esso 
"sorvola" teniamo 16 byte in cui facciamo scorrere 
l'immagine dell'aeroplano. Per visualizzarlo poniamo 
nei byte riservati ai caratteri di D/CODE 126 e 127 
l'immagine dell'aeroplano dopo aver eseguito la OR con 
i corrispondenti byte delle descrizioni dei caratteri 
i cui D/CODE sono contenti nel buffer. 

Il programma BASIC INTERRUPT abbassa i puntatori di 
fine memoria, pone in memoria il programma in linguag¬ 
gio macchina, pone la descrizione dei caratteri in RAM 
(da $3800 in poi; verranno pero' usati solo i carat¬ 
teri minuscoli che iniziano in $3C00), seleziona il 
set minuscolo, scrive il messaggio, crea una finestra 
video, lancia la routine in linguaggio macchina e si 
autocancella. 

Il programma in linguaggio macchina può' essere divi¬ 
so in due parti: 

- la prima, INT1, (da $3B10 a $3B5H) inizializza il 
programma. 

- la seconda, INT2, (da $3B58 a $3BF9) e' la parte 
che verrà' eseguita ad ogni chiamata di interrupt. 
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I byte ohe servono al programma In linguaggio macchi¬ 
na per lavorare sono: 

$3BOO-$3BOF: contengono la descrizione dell'aero¬ 
plano che cambia ad ogni chiamata di interrupt (vedi 
Figura 7.6). 

$3B55: buffer di sinistra. 

$3B56: buffer di destra. 

$3B57: posizione dell’aeroplanino nella matrice. 

$3FFO-$3FFF : sono i 16 byte che descrivono i carat¬ 
teri di D/CODE 126 e 127: contengono la descrizione 
dell'aeroplanino dopo che ha subito la OR con le imma¬ 
gini dei caratteri il cui D/CODE e' nel buffer. 


Ecco il listato del programma BASIC INTERRUPT: 


0 rem interrupt 

10 PoKe56 .• 59 : P oKe55 .• 00 : c 1 r 

11 f ori =0to249 : rea.da • Poke 15104+ i, a : nexfc 
20 P oKe65299, < p eeK < 65299 > a.nd3 > +56 

30 F- oKe65298, P eeK < 65298 > and251 

40 a*=" INTERRUPT MODIFICATO" 

41 Fri ntchr-T < 147 > chr $ < 14 > chr# < 8 > a.$ 

50 P r i nt • P r i ntchr* < 27 " t " : s 15120 ■ neui 
1000 data.8,12, 204,255,255,204,12, 8 
1010 data.0, 0,0,0, 0,0,0,0 
1020 data120,169,212,133,4,169,60,133 
1030 data.6,160,0,132,3,132,5,177 
1040 data.3,145,5, 200,208, 249,230, 4 
1050 data.230,6,165,4,201,216,208,239 
1060 datal69,0,141,87,59,169,12,133 
1070 data.4,169,0,133,3,173,0,12 
1080 data141,35,59,173,1,12,141,86 
1090 da.ta.59 ,169,59,141,19,3,169,88 
1100 data141,18,3,88,96,0,0,0 
1110 data173,87,59,201,8,240,87,238 
1120 data.87,59, 162, 7,94,0,59, 126 
1130 da.ta.8,59, 202,16, 247,160,7,162 
1140 data1,189,85,59,133,5,169,© 

1150 data. 133: ,6,6,5,38,6,6,5 
1160 data.38,6,6,5,38,6,169,60 
1170 data.24,101,6,133,6,177,5,202 
1 180 data.203,9,25, 8,59,153,248,63 
1190 da.ta.76 ,161,59,25,0,59,153,240 
1200 da.ta.63 , 232, 202,16,204, 136,16,199 
1210 data160,0,169,126,145,3,200,169 
1220 data127,145,3,76,66,206,169,0 
1230 data. 141,87,59, 162,7,189,8,59 
124© data157,0,59,169,0,157,8,59 
1250 data.202,16, 242,173,85,59,160,0 
1260 data145,3,173,86,59,141,85,59 
127© data.230,3,165,3,201,39,208, 16 
1280 data169,0,133,3,173,85,59,141 
1290 da.ta.39 ,12,173,0,12,141,85,59 
1300 data160,1,177,3,141,86,59,76 
1310 data189,59 
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Segue il listato del programma in linguaggio macchi 
na, formato dalle 2 routine INT1 e INT2: 


MONITOR 

PC SR OC XR VR SP 
0000 00 00 00 00 F8 


3B10 

78 



SEI 


3B11 

R9 

D4 


LDR 

#*■04 

3B13 

85 

04 


STA 

*04 

3B15 

R9 

3C 


LDR 

#*3C 

3B17 

85 

06 


STR 

*06 

3B19 

R0 

00 


LDV 

#*00 

3B1B 

84 

03 


STV 

STV 

*03 

3B1D 

84 

05 


*05 

3B1F 

B1 

03 


LDR 

<*03>,V 

3E21 

91 

05 


STA 

<*05 >,V 

3B23 

C8 



INV 


3B24 

00 

F9 


BNE 

*3B1F 

3826 

E6 

04 


INC 

*04 

3B28 

E6 

06 


INC 

*06 

3B2R 

R5 

04 


LDR 

*04 

3B2C 

C9 

08 


CMP 

#*08 

3B2E 

00 

EF 


BNE 

*3B 1F 

3B30 

R9 

00 


LDR 

#*00 

3B32 

8D 

57 

3B 

STA 

*3B57 

3B35 

R9 

0C 


LDR 

#*0C 

3B37 

85 

04 


STR 

*04 

3B39 

R9 

00 


LDR 

#*00 

3B3B 

85 

03 


STR 

*03 

3B3D 

RD 

00 

0C 

LDR 

*0C00 

3B40 

80 

55 

3B 

STR 

*3B55 

3B43 

RO 

01 

0C 

LDR 

*0C01 

3B46 

80 

56 

3B 

STR 

*3B56 

3B49 

R9 

3B 


LDR 

#*3B 

3B4B 

80 

13 

03 

STR 

*0313 

3B4E 

R9 

58 


LDR 

#*58 

3B50 

80 

12 

03 

STR 

*0312 

3B53 

58 



CLI 


3B54 

80 



RTS 



MONITOR 


PC SR RC XR VR SF' 
0000 00 00 00 00 F8 


3B58 

RO 

57 

3B 

LDR 

*3B57 

3B5B 

C9 

08 


CMP 

#*08 

m? 

P0 

S 7 


BEO 

*3BB6 

EÈ 

S" 7 

3B 

INC 

*3B57 

3B62 

R 2 

07 


LDX 

#*07 

111* 

?i 

HI 

il 

LSR 

ROR 

*3B00,X 
*3B08,X 

3B6R 

CR 



DEX 


3B6B 

10 

F7 


BPL 

*3B64 

3B60 

R0 

07 


LDV 

#*07 
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3B6F 

R2 

01 


LDX 

#$01 

3B71 

BD 

55 

3B 

LDR 

$3B55- X 

3B74 

85 

05 


STR 

$05 

3B76 

R9 

00 


LDR 

#$00 

3B7S 

85 

06 


STR 

$06 

3B7A 

06 

05 


RSL 

$05 

3B7C 

26 

06 


ROL 

$06 

3B7E 

06 

05 


RSL 

$05 

3B80 

26 

06 


ROL 

$06 

3B82 

06 

05 


RSL 

$05 

3B84 

26 

06 


ROL 

$06 

3B86 

R9 

30 


LDR 

#$30 

3B88 

18 



CLC 


3B89 

65 

06 


ROC 

$06 

3B8B 

85 

06 


STR 

$06 

3B8D 

B1 

05 


LDR 

<$05 >>V 

368F 

CR 



DEX 


3B90 

D0 

09 


BUE 

$3B9B 

3B92 

19 

08 

3B 

ORA 

$3B08,V 

3E95 

99 

F8 

3F 

STR 

$3FF8,V 

3B98 

40 

RI 

3B 

JMP 

$3BR1 

3B9B 

19 

00 

3B 

ORR 

$3B00,V 

3B9E 

99 

F9 

3F 

STA 

$3FF0,V 

3BA1 

E8 



INX 


3BR2 

CR 



DEX 


3BR3 

10 

CO 


BPL 

$3B71 

3BA5 

88 



OEV 


3BR6 

10 

07 


BPL 

$3B6F 

3BR8 

R0 

00 


LDV 

#$00 

3BRR 

R9 

7E 


LDR 

#$7E 

3BRC 

91 

03 


STR 

<$03)iV 

3BRE 

08 



IHV 


3BRF 

R9 

7F 


LDR 

#$7F 

3BB1 

91 

03 


STR 

< $03 y > V 

3BB3 

40 

42 

CE 

JMP 

$CE42 

3BB6 

R9 

00 


LDR 

#$00 

3BB8 

8D 

57 

3B 

STR 

$3B57 

3BBB 

R2 

07 


LDX 

#$07 

3BBD 

BD 

08 

3B 

LDR 

$3B08,X 

3BC0 

9D 

00 

3B 

STR 

$3B00•X 

3BC3 

R9 

00 


LDR 

#$00 

3BC5 

9D 

08 

3B 

STR 

$3B08/X 

3BC8 

CR 



DEX 


3BC9 

10 

F2 


BPL 

$3BBD 

3 BOB 

AD 

55 

3B 

LDR 

LDV 

$3B55 

3BCE 

R0 

00 


#$00 

3BD0 

91 

03 


STR 

C$03>,V 

3BD2 

RD 

56 

3B 

LDR 

$3B56 

3BD5 

8D 

55 

3B 

STA 

$3B55 

3BD8 

E6 

03 


IMO 

$03 

3BDR 

R5 

03 


LDR 

$03 

3BDC 

09 

27 


CMP 

#$27 

3BDE 

D0 

10 


BNE 

$3BF0 

3BE0 

R9 

00 


LDR 

#$00 

3BE2 

85 

03 


STR 

$03 

3BE4 

RD 

55 

3B 

LDR 

$3B55 

3BE7 

8D 

27 

00 

STR 

$0027 

3BER 

RD 

00 

00 

LDR 

$0000 

3BED 

8D 

55 

3B 

STR 

$3B55 

3BF0 

R0 

01 


LDV 

#$01 

3BF2 

B1 

03 


LDR 

< $03 > 1 V 

ìm 

18 

56 

6D 

•71 ^ 

STR 

JMP 

11118 
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Ed ecco, infine, la corrispondenza tra i 
diagrammi e il listato dei programmi in 
macchina : 


SCHEMA INT1 : 


BLOCCO 

1 : 

linee 

3B10-3B2E. 

BLOCCO 

2 : 

linee 

3B30-3B32. 

BLOCCO 

3 : 

1 inee 

3B35-3B3B. 

BLOCCO 

4 : 

linee 

3B3D-3B46. 

BLOCCO 

5 : 

linee 

3B49-3B50. 

BLOCCO 

6 : 

linee 

3B53-3B54. 

SCHEMA INT2 

. 


BLOCCO 

1 : 

linee 

3B58-3B5D . 

BLOCCO 

2 : 

linee 

3BB6-3BB8. 

BLOCCO 

3 : 

linee 

3BBB-3BC9 . 

BLOCCO 

4 : 

linee 

3BCB-3BD0. 

BLOCCO 

5 : 

linee 

3BD2- 3BD5 . 

BLOCCO 

6 : 

linee 

3BD8. 

BLOCCO 

7 : 

linee 

3BDA*3BDE. 

BLOCCO 

8 : 

linee 

3BE0-3BE2. 

BLOCCO 

9 : 

linee 

3BE4-3BE7 . 

BLOCCO 

1 0 

: linee 

3BEA-3BED 

BLOCCO 

1 1 

: linee 

3BFO-3BF7 

BLOCCO 

12 

: linee 

3B5F. 

BLOCCO 

13 

: linee 

3B62-3B6B 

BLOCCO 

1 4 

: linee 

3B6D-3B6F 

BLOCCO 

15 

: linee 

3B71-3B8B 

BLOCCO 

16 

: linee 

3B8D-3BA1 

BLOCCO 

1 7 

: linee 

3BA2. 

BLOCCO 

18 

: linee 

3BA3. 

BLOCCO 

1 9 

: linee 

3BA5. 

BLOCCO 

20 

: linee 

3BA6. 

BLOCCO 

21 

: linee 

3BA8-3BB1 

BLOCCO 

22 

: linee 

3BB3. 


blocchi dei 
linguaggio 
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APPENDICE A 


ISTRUZIONI ASSEMBLER 


Nelle tabelle dèlie pagine seguenti sono riportate le 
Istruzioni ASSEMBLER. 

Ogni riga riguarda un'istruzione, riportata in ordine 
alfabetico per codice mnemonico. Per ogni istruzione 
viene data in colonna 2 la descrizione sintetica del¬ 
l'operazione. Seguono sulle colonne successive, per 
ogni tipo di indirizzamento, il codice esadecimale 
dell'istruzione, il numero dei cicli di clock impie¬ 
gati per eseguirla e il numero dei byte occupati. Nel¬ 
le ultime 6 colonne sono indicati i FLAG influenzati 
dall'esecuzione dell'istruzione. 
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APPENDICE B 


MAPPA DELLA MEMORIA 


Label lnd. esadec. ind. decimale Descrizione 

PDIR $0000 0 7501 DATA DIRECTION REGISTE R: direzione 


del dati nella porta I/O nella CPU che 
si trova all’Indirizzo 1.0- INPUT 
1-0UTPUT, per ciascuno degli 8 bit 


PORT 

$0001 

1 

7501 

DATA REGISTER: Registro dove leggere 




o scrivere lo stato del piedini di I/O 
della CPU 

SRCHTK 

$0002 

2 

Temporanea per il BASIC 

ZPVEC1 

$0003-=$0004 

3-4 

Temp 

(renumber) 

ZPVEC2 

$0005-$0006 

5-6 

Temp 

(renumber) 

CHARAC 

$0007 

7 

Temporanea per 11 BASIC 

ENDCHR 

$0008 

8 

Flag : 

cerca le virgolette a fine stringa 

TRHPOS 

$0009 

9 

Colonna dello schermo dall'ultimo TAB 

VERCK 

$000 A 

1 0 

Flag: 

0 - load; 1 - verify 

COUNT 

$00 0 B 

1 1 

Punt. 

del buffer di Input/# di subscripts 

DIMFLG 

$oooc 

1 2 

Flag: 

Dimensione di default per il vettore 

VALTYP 

$00 0 D 

13 

Tipo 

di dato: $FF - stringa; $00 - numero 

INTFLG 

$000E 

1 4 

Tipo 

di dato: $80 - intero; $00 - floating 

DORES 

$000F 

15 

Flag: 

DATA scan/List quote/garbage coll 

SUBFLG 

$0010 

1 6 

Flag: 

subacrlpt ref / user functlon cali 

INPFLG 

$001 1 

17 

Flag: 

$00 - INPUT; $40 - GET; $98 - READ 

TANSGN 

$0012 

18 

Flag: 

segno TAN / risultato del confronto 

CHANNL 

$001 3 

19 

Flag : 

INPUT prompt 

LINNUM 

$0014-$0015 

20-21 

Temp : 

valore numero intero 

TEMPPT 

$001 6 

22 

Puntatore: stack temporaneo per stringhe 

LASTPT 

$0017-$0018 

23-24 

Indirizzo ultima stringa temporanea 

TEMPST 

$0019-$0021 

25-33 

Stack 

per stringhe temporanee 

IN DE X1 

$0022-$0023 

34-35 

Area 

per puntatori di utilità* 

1NDEX2 

$002 4-$0025 

36-37 

Area 

per puntatori di utilità* 

RESHO 

$0026 

38 



RESMOH 

$0027 

39 



HESMO 

$0028 

40 



RESLO 

$0029 

41 




$002A 

42 



TXTTAB 

$002B-$002C 

43-44 

Puntatore: inizio area programma BASIC 

VARTAB 

$002D-$002E 

45-46 

Punt : 

Fine programma BASIC+1 e inizio var . 

ARYTAB 

$002F-$0030 

47-48 

Punt : 

Fine varlabili*1 e inizio vettori 

STREND 

$0031-$0032 

49-50 

Punt: 

Fine vettori+1 

FRETOP 

$003 3"$00 3 4 

51 -52 

Punt : 

Fondo della zona stringhe 

FRESPC 

$0035-$0036 

53-54 

Puntatore di utilità' per le stringhe 

MEMSIZ 

$0037“$0038 

55-56 

Punt : 

Cima memoria riservata al BASIC*1 

CURLIN 

$0039“$003A 

57-58 

Numero della linea BASIC corrente 

TXTPTR 

$003B-$003C 

59-60 



FNDPNT 

$003D-$003E 

61-62 



DATLIN 

$003F-$0040 

63-64 

Numero della linea DATA corrente 

DATPTR 

$004 1 -*$0042 

65-66 

Puntatore: Indirizzo voce DATA corrente 

INPPTR 

$004 3“$004 4 

67-68 

Vettore: Routine INPUT 

VARNAM 

$0045-'$0046 

69-70 

Nome 

della variabile BASIC corrente 
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VARPNT 

$0047“$004S 

71-72 

Punt: dati della variabile BASIC corrente 

FORPNT 

$0049-$004A 

73-74 

Punt: variabile indice per FOR/NEXT 

OPPTR 

$004B-$004C 

75-76 


OPMASK 

$00 4 D 

77 


DEFPNT 

$004E-$004F 

78-79 


DSC P NT 

$0050-$0051 

80-81 



$0052 

82 


HELPER 

$0053 

83 


JMPER 

$005 4 

84 


SIZE 

$0055 

85 


OLDOV 

$0056 

86 


TMPF1 

$0057 

87 


HIGHDS 

$0058-$0059 

88-89 


HIGHTR 

$005A-$005B 

90-91 



$005C 

92 


LOWDS 

$005D-$005E 

93-94 


LOWTR 

$005 F 

95 


EXPSGN 

$0060 

96 


FACEXP 

$0061 

97 

Esponente accumulatore virgola nobile 1 

FACHO 

$0062-$0065 

98-101 

Mantissa accumulatore virgola mobile 1 

FACSGN 

$0066 

102 

Segno accumulatore virgola mobile 1 

SGNFLG 

$0067 

103 

Puntatore: costante per calcolo in serie 

BUS 

$0068 

1 04 

Overflow accumulatore virgola mobile 1 

ARGEXP 

$0069 

105 

Esponente accumulatore virgola mobile 2 

ARGHO 

$006 A"»$006D 

106-109 

Mantissa accumulatore virgola mobile 2 

ARGSGN 

$006E 

1 1 0 

Segno accumulatore virgola mobile 2 

ARISGN 

$006F 

111 

Risultato confronto segni: accumul.1-acc.2 

FACOV 

$0070 

1 1 2 

Arrotondali!, accumulatore virgola mobile 1 

FBUFPT 

$0071-$0072 

113-114 

Puntatore: Buffer cassetta 

AUTINC 

$007 3-$0O7 A 

115-116 

Valore di incremento per AUTO O-escluso 

MVDFLG 

$0075 

1 17 

Flag: 10 K alta risoluzione allocati 

KEYNUM 

$0076 

1 1 8 


KEYSIZ 

$0077 

119 


SYNTMP 

$0078 

1 20 


DSDESC 

$0079-$007B 

121-«123 

Descrittore di DS$ 

TOS 

$007C-$007 D 

124-125 

Cima dello stack del BASIC 

TMPTON 

$007E-$007F 

126-127 

Temporanee per la musica (tono e volume) 

VOICNO 

$0080 

1 28 


RUNMOD 

$0081 

129 


POINT 

$0082 

1 30 


GRAPHM 

$0083 

131 

Modo grafico corrente 

COLSEl 

$0084 

1 32 

Colore corrente selezionato 

MC 1 

$0085 

133 

Colore multicolore 1 

FG 

$0086 

1 34 

Colore FOREGROUND 

SCXMAX 

$0087 

135 

Numero massimo di colonne 

SCYMAX 

$0088 

136 

Numero massimo di righe 

LTFLAG 

$0089 

137 

Flag: dipingi a sinistra 

RTFLAG 

$008A 

138 

Flag: dipingi a destra 

STOPNB 

$00 8b 

139 

Smette di dipingere se non sfondo 

GRAPNT 

$008C-$008D 

140-141 


VTEMP1 

$00 8E 

1 42 


VTEMP2 

$008F 

143 


STATUS 

$0090 

144 

Parola di stato del KERNAL (ST) 

STKEY 

$0091 

145 

Flag: Tasto STOP/tasto Reverse 

SPVERR 

$0092 

146 

Temporanea 

VERFCK 

$0093 

1 47 

Flag: 0-load; 1-verify 

C3PO 

$0094 

1 48 

Flag: Serial bus-Carattere in uscita 

BSOUR 

$0095 

1 49 

Carattere bufferizzato per serial bus 

XS A V 

$0096 

150 

Temporaneo 

LDTND 

$0097 

1 51 

Numero flles aperti/indice a tabella file 

DFLTN 

$0098 

152 

Unita* di input di default (0) 

DFLTO 

$0099 

153 

Unita* di output di default (3) 

MSGFLG 

$00 9 A 

154 

Flag: $80 - modo diretto; $00-programma 

SAL 

$009B 

1 55 

Errore passo 1 su nastro 

SAH 

$0090 

156 

Errore passo 2 su nastro 

E AL 

$009D 

1 57 


EAH 

$00 9E 

158 


TI 

$009F-$00A0 

159-160 

Area dati temporanea 

T2 

$OOA1-$OOA2 

161-162 

Area dati temporanea 
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TIME 

$OOA3-$OOA5 

163-165 

Orologio in tenpo reale in 1/60 sec. 

R2D2 

$00 A 6 

166 

Usata dal Serial Bus 

TPBYTE 

$00 A7 

167 

Byte da essere scritto/letto su/da nastro 

BS0UR1 

$00 A 8 

168 

Temporanea usata dalla routine seriale 

FPVERR 

$00 A9 

169 


DCOUNT 

$00 AA 

170 


FNLEN 

$00 AB 

171 

Lunghezza del none del file corrente 

LA 

$OOAC 

1 72 

Numero del file logico corrente 

SA 

$00 AD 

173 

Indirizzo secondario corrente 

FA 

$00 AE 

1 7*1 

Numero di unita' corrente 

FNADR 

$OOAF-$OOBO 

175-176 

Punt.: nome del file corrente 

ERRSUM 

$00B1 

177 


STAL 

$00B2 

178 

Indirizzo di inizio I/O 

STAR 

$00B3 

179 


MEMUSS 

$00B4-$00B5 

180-101 

Inizio della RAM da caricare 

TAPEBS 

$OOB6-$OOB7 

1 82-103 


TMP 2 

$OOB8-$OOB9 

18*1-105 


WRBASE 

$OOBA“$OOB8 

106-187 

Puntatore ai dati per scrittura su nastro 

IMPAR 

$OOBC-$OOBD 

188-189 


FETPTR 

$QOBE-$OOBF 

190-191 

Punt: byte da indirizzare 
nell'indirizzamento a banchi 

SEDSAL 

$00C0-$00C1 

192-193 

Temporaneo per lo Scrolling 

RVS 

$00C 2 

1 9** 

Flag di reverse on 

INDX 

$00C 3 

195 


LSXP 

$000*1 

196 

Posizione X all'inizio 

LSTP 

$0005 

197 


SFDX 

$0006 

198 

Tasto premuto 

CRSW 

$0007 

199 

Flag: INPUT o GET dalla tastiera 

P NT 

$OOC8-$OOC9 

200-201 

Punt: indirizzo linea corrente di schermo 

PNTR 

$000 A 

202 

Colonna del cursore nella linea corrente 

UTSW 

$000 B 

203 

Flag: Editor in modo virgolette (O-NO) 

3EDT1 

$0000 

204 

Uso temporaneo per editor 

TBLX 

$000 D 

205 

Numero di linea fisica del cursore 

DATAX 

$000 E 

206 

Area dati temporanea 

IN9RT 

$000 F 

207 

Flag: modo Insert, >0-numero di insert 

FREE 

$OODO-$OOE8 

208-232 

Area libera per l'utente 

CIRSEO 

$00E9 

233 

Tabella di collegamento linee schermo 

USER 

$OOEA-$OOEB 

234-235 


KEYTAB 

$OOEC-$OOED 

236-237 

Vettore tabella scansione tastiera 

TMPKEY 

$00E E 

238 


NDX 

$00 E F 

239 

Indice alla coda della tastiera 

tìTPFLQ 

$OOFO 

240 

Flag: pausa 

TO 

$OOF1-$OOF2 

241-242 

Locazione in pagina 0 usata dal MONITOR 

C N N P T R 

$OOF 3 

243 


BUFINO 

$00F4 

244 


CMK8UM 

$00 F5 

245 

Temporanea per il controllo della parità' 

LKNUHT 

$00F6 

246 


PAM» 

I00F7 

247 


TYPI 

$00 F 8 

246 

Tipo di blocco 

UNIKDY 

$00 F 9 

249 


XNTOP 

$OOFA 

250 

Salva registro X per controllo rapido STOP 

CUHBNK 

$00 F B 

251 

Configurazione del banco corrente 

XON 

$OOFC 

252 

Non usata nel COMMODORE 16 

xoff 

$00F D 

253 

Non usata nel COMMODORE 16 

MCDT4 

$OOFE 

254 

Usata temporaneamente dall'editor 

LOPBUF 

$OOFF 

255 


IYIITK 

•01OO-AO1FF 

256-511 

Stack della CPU 

BUf 

$0200“$0258 

512-600 

Buffer di input BASIC e MONITOR 


$0259-$02AC 

601-684 

Area usata dal BASIC per comandi DOS 


$02A D“$02F1 

605-753 

Area usata dal BASIC per comandi grafici 

ADII AY t 

$02F2-$02F3 

754-755 

Punt: conversione FL0ATING-INTERO 

APRATI 

$02F4-$02F5 

756-757 

Punt: conversione INTER0-FL0ATING 

BNKVIC 

$02F1-$02FF 

766-767 

.Vettore per l'uso di funzioni su cartridge 

IIMOfl 

$0300-$0301 

768-769 

Vettore errore (codice in reg. X) 

(MA 1N 

$0 302**$0 30 3 

770-771 

Vettore esecuzione istruzione BASIC 

iUNNCH 

$0303-$030K 

772-773 

Vett. tokenlzzaz. (compatta parole) 
chiave del BASIC) 

IQPLUP 

$0 IO6 $0 307 

774-775 

Vettore routine LIST 

IOONI 

$0 300* $0 309 

776-777 

Vettore routine analisi prossimo carattere 
del programma BASIC 
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Vettore per la valutazione del simboli 


IEVAL $030A-$030B 778-779 

IESCLK $0300*030D 780-781 

IESCPR $030E-'|030F 

I ESCE X $0310^10311 

IT IME $0 312-$0 31 3 

CINV $0314-$0315 788-789 Vettore di INTERRUPT 

CBINV $0316->|0317 790-791 Vettore BRK 

IOPEH $0318-10319 VETTORI DEL SISTEMA OPERATIVO 

ICLOSE $031 A-$031 B 

ICHKIH $031C->$031D 

ICKOUT $031 E-$031F 

ICLRCH $0320-$0321 

IBASIN $0322-$0323 

IBSOUT $0324-$0325 

ISTOP $0326-$0327 

IGETIN $0328-'$0329 

ICLALL $032A-$032B 

USRCMD $032C-*$032D 

ILOAD $0 3 2E-$0 32F 

ISAVE $0 3 30-$03 31 

TAPBUF $0333-$03F2 819*1010 Buffer per 11 registratore a cassetta 

WRLEN $03F3*$03F4 1011-1012 Lunghezza del dati da scrivere su nastro 

RDCNT $03F5-$03F6 1013-1014 Lunghezza del dati da leggere da nastro 

$03F7-$0472 1015*1138 Non usate (rs 232) 

CHRGET $0473*$0478 1139-1144 Routine di lettura caratteri da memoria 

usata dal BASIC per ricevere un carattere 
alla volta 

CHRGOT $0479*$0484 1145-1156 Seguito di CHRGET, ma entrando da questo 

punto ritorna l’ultimo carattere letto 
USRPOK $0500-$0503 1280-1282 Vettore di salto funzione USR 

LAT $0509-$0512 1189-1198 Tabella dei numeri di file logico 

FAT $0513*$051C 1 299-1 308 Tabella Indirizzi primari 

SAT $051D-$0526 1309-1318 Tabella Indirizzi secondari 

KEYD $0527-$0530 1319*1328 Buffer della tastiera 

SAREG $07F2 2034 Registri per il comando SYS: accumulatore 

SXREG $07F3 2035 Registro X 

SYREG $07F4 2036 Registro Y 

SPREG $07F5 2037 Registro dei FLAG 

LSEM $07FC 2044 Semaforo per arresto motore cassetta 

TEDATR $0800-0BFF 2048-3071 Mappa degli attributi per 11 video 

TEDSCN $0C00-0FFF 3072-4095 Mappa del caratteri nel video 


300 



APPENDICE C 


REGISTRI DEL TED 


.Segue una tabella che riporta gli indirizzi esadeci- 
mall e decimali dei registri del TED e la funzione dei 
t> 11 di ogni registro. 
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APPENDICE D 


D/CODE 


fTiRRISpONDENZA CARATTERI - D/CODE 
PER I DUE SET DISPONIBILI 


MA/ 

GRAF 

MI N/MA 

D/CODE 

DIR. 

INV. 

DIR. INV 

DIR. INV 


a 

TI 

il 

a 

0 

128 

A 

Si 

=i 


1 

129 

B 

=3 

b 

si 


130 

f'. 

•1 

c 

9 

O 

131 

D 

■3 

d 

SI 

4 

132 

E 

a 

e 

9 

5 

133 

F 

3 

f 

:a 

6 

134 

G 

M 

3 

S] 

7 

135 

H 

:i 

h 

si 

o 

136 

I 

>i 

i 

n 

Q 

137 

T 

M 

3 

n 

10 

138 

K 

a 

K 

s 

1 1 

139 

L. 

m 

1 

il 

12 

140 

M 

il 

m 

tu 

13 

141 

N 

SI 

n 

9 

14 

142 

0 

:■] 

o 

53 

15 

143 

P 

a 

P 

3 

16 

144 

Q 

w 


£1 

17 

145 

R 

a 

r 

3 

18 

146 


83 

s. 

9 

19 

147 

T 

II 

t 

if 

20 

148 

LI 

■J 

1.4 

in 

21 

149 

l (| l 

Al 

i..i 

» 


150 

W 

151 

L«J 

in 

23 

151 


a 

X 

ai 

24 

152 

V 

Al 

*y 

a 

25 

153 

z 


z 

sa 

26 

154 

l 

il 

C 

n 

27 

155 

£ 

ra 

£ 

fa 

28 

156 


il 

] 

il 

2S 

157 

f 

Si 

T 

Sì 

30 

158 

4“ 

rm 

ia 

4- 

rm 
h m 

31 

159 


■ 


m 

32 

160 

! 

II 

! 

II 


161 

ii 

a" 

11 

3‘ 

34 

162 

# 


# 


35 

163 

t 

il 

$ 

il 

36 

164 


a 



37 

165 
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CORRISPONDENZA CARATTERI - D/CODE 


PER I DUE 

SET DISPONIBILI 


MA/GRAF 

MIN/MA 

D/CODE 

DIR. INV. 

DIR. INV 

DIR. INV 


•$: 

«1 

& 

ss 

38 

166 


a 


a 

39 

167 

c; 

M 


H 

40 

168 

'l 

a 

li 

a 

41 

169 

* 

13 

* 

33 

42 

170 

+ 

a 

+ 

3 

43 

171 


a 

.. 

a 

44 

172 

~ 

a 

— 

a 

45 

173 

# 

a 

« 

a 

46 

174 


a 

<■ 

a 

47 

175 

0 

n 

0 

31 

48 

176 

1 

II 

1 

fi 

49 

177 

2 

Zi 

2 


50 

178 


« 


M 

51 

179 

4 

SS 

4 

SS 

52 

180 

CJ 

il 

5 

SI 

53 

181 

F 

33 

6 
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CORRISPONDENZA CARATTERI - D/CODE 
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APPENDICE E 


SCHEMA ELETTRICO 

Segue lo schema elettrico del COMMODORE 16. 


307 






























































AO-/S 



310 


KERtJ JKOO - SFCFF 




















Il libro fa seguito al primo volume: “Commodore 16 perle", cioè presup¬ 
pone una conoscenza elementare del BASIC. Per evitare ripetizioni di 
argomenti già trattati, si fa riferimento, dove necessario, al primo volume. 
In questa sede viene approfondita la conoscenza del BASIC 3.5, riportan¬ 
do molti programmi esempio, opportunamente commentati. 

Viene affrontato in modo approfondito l’uso delle periferiche, dedicando 
un capitolo alla stampante e uno alla gestione dei file su disco. 

Uno degli argomenti interessanti e istruttivi del libro è la programmazione 
in linguaggio macchina, che viene affrontato fornendo le notizie tecniche 
necessarie per applicarla, e parecchi esempi. Sono illustrate le istruzioni 
riconosciute dal microprocessore e sono presenti tutti i riferimenti ne¬ 
cessari alla struttura hardware. Inoltre sono spiegate le funzioni delle più 
importanti routine del sistema operativo. 

Viene descritto l’uso del processore video, cosache permette di raggiun¬ 
gere risultati grafici altrimenti non ottenibili in BASIC. 
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